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Harden Italia. 
Il salto 


Dal personal computer 
al professional computer. 


Nel quadro di una filosofia aziendale in evoluzione, 
Harden Italia riconferma la validità della proposta del Sirius 1. 
Il Sirius 1, con tutta la potenza del suo microprocessore a 16 bit, 
con 5 MHz, e una memoria centrale che può arrivare 896 
KBytes, è uno dei più avanzati della nuova generazione dei 
Personal. 

Oltre ad una enorme capacità di archiviazione dei dati (dai 
1240 KBytes del Sirius 1 agli 11.840 KBytes del Sirius 1b) il 
Sirius può contare su alcune caratteristiche che un tecnico e un 
professionista non possono non apprezzare: dall’interfacciamento 
con due porte seriali e una parallela programmabile 
da software, ai sistemi operativi (MS-DOS della | a sa 
Microsoft e CP/M86 della Digital Research), { \ 
fino ai linguaggi di alto livello come il BASIC-86 » > SII IUS 
(interprete e compilatore), l’Assembler, il ros 
COBOL, il Fortran, il Pascal. Ape filet. Ca 

Oltre che sul software vero e proprio = 
(programmi come il Dbase II, il SuperCalc, 
il Multiplan o l’Harden-text e 1’Harden- 
data) il Sirius 1 si avvale dei così detti 
“Tool Kits”, una serie cioè di utilities 
compatibili con qualsiasi linguaggio che 
permettono una stesura dei programmi più facile 
e più completa come ad esempio l’AutoSort, il 
FABS, una gestione sofisticata IS, ecc. 

In più, il Sirius 1 è distribuito e assistito dalla 
Harden Italia su tutto il territorio nazionale. 

Per saperne di più sul Sirius 1, sui suoi ITALIA 
programmi o su dove sono i punti di vendita Harden Italia S.p.A. Direzione generale e uffici commerciali 
Harden più vicini, chiamare (0372)-63136 oppure ig, — ia, el Gimatvi, 4 © el. (09) 991648 
(02)-651645: risponde la Harden Italia. 26048 Sospiro (CR) - tel. (0372) 63136 - telex: 3205881 
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Contributi dei lettori 


In copertina: la rappre- 
sentazione fantastica di 
un data base intelligen- 
te nell'interpretazione 
dello Studio Morgana. 
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In questa guida sono riportati i per- 
sonal computer e i microprocessori 
di cui si parla negli articoli e nelle 
rubriche. 


ALLA SCOPERTA. 
DEL TUO PRIMO COMPUTER 


Rita Done 


TXDO è Nuova Krom 


GUIDA AL SINCLAIR ZX81 


ZX80 E NUOVA ROM t ASTRI 

di Rita Bonelli x Introduzione - Il calcolatore - Installazione 
) del calcolatore - La programmazione - 

Il libro ll linguaggio BASIC - Come operare - Utilizzo 


della memoria - Linguaggio macchina - Esempi 
di programmi - Caratteri del sistema - 

Variabili del sistema - Scheda BASIC 
ZX80.- Scheda BASIC ZX80 nuova ROM e 72x81 . 


Questa guida, con chiarezza, semplicità espositivo e ricchezza di 
esemplificazioni, risulta un vero e proprio strumento operativo per tutti 
coloro che vogliono avvicinarsi all'informatica in generale, e imparare le 
programmazione in BASIC, in particolare travalicando i tre calcolatori 
(ZX81, ZX80. 2X80 nuova ROM) a cui fa riferimento ’ Errori segnalati dalla 

L'ultimo capitolo, infine; riporta parecchi programmi e per ciascuno, macchina - Sistema operativo dello 2X81 - Sistema operativo dello 2X80 
Vengono fomite, dove'possibile, le diverse versioni (tra l'altro si parlerà di nuova ROM. —. e 
file e di animazione delle figure) Cod. 318B pag. 262 L 16.500 


(è GRUPPO EDITORIALE JACKSON 


Divisione Libri 


Per ordinare il volume utilizzare l'apposito tagliando inserito in fondo alla rivista. 


Come passerò l’estate 


Mauro Boscarol 


Sono sul piede di partenza per la Corsica. Il gom- 
mone è già caricato sulla macchina, il carrello è pieno 
di tende, pentole, scatolette, servizi in plastica e me- 
lanina. Forzosamente, la destinazione che ho scelto è 
tra le più economiche: la direzione di questa rivista 
non mi permette di uscire dagli angusti limiti che mi 
sono imposto. Non ho però trascurato di infilare nel 
sacco uno ZX80 nuova ROM, con il quale, nei po- 
meriggi assolati, calcolare le orbite dei satelliti e la 
periodicità delle maree. 

Mia figlia strilla perché vuole anche il PET/CBM 
4032 con doppio floppy e stampante: sto cercando di 
convincerla che sul posto non avremo la necessaria 
alimentazione elettrica, e che giocheremo a Invaders 
quando torneremo in città. 

Ho accuratamente progettato queste vacanze con 
l’aiuto di un Apple II e di Visicalc. Ogni spostamento 
è stato organizzato nei minimi particolari. Il costo 
della benzina, dei camping, dei generi alimentari è 
stato calcolato in anticipo. 

Ho pensato anche al problema delle cartoline: con 


EDITORIALE 


un data base su Atari 400 ho stampato tutti i record 
del mio indirizzario su etichette: quando sarò ad 
Ajaccio incollerò le etichette sulle cartoline e, a ma- 
no, completerò la parte dei saluti e baci. 

Quest'anno ho deciso di fare delle vacanze 
“intelligenti”. Mi sono procurato tutti i numeri del- 
l’Espresso e di Panorama, ed ho organizzato un itine- 
rario nell’interno della Corsica che mi porterà a con- 
tatto con pastori e valligiani. Andrò alla ricerca della 
genuina anima popolare corsa: registrerò le melodie 
folk su nastri che farò poi digitalizzare al mio DAI. 
Oltre a calcolare correlazioni e contingenze, il DAI 
potrà sintetizzare le melodie, ordinarle, correggerle 
ed archiviarle in un apposito data base musicale. 
Quest’inverno potrò risentirmele in santa pace. 

Bene, mi pare che sia tutto pronto: mia moglie ha 
già acceso il motore della Diesel per farlo scaldare, e 
mi sta suonando con il clacson. “Arrivo”, urlo 
“finisco di scrivere questo editoriale con il word pro- 
cessor del TRS-80 Color Computer e vengo”. 

Cari coniglietti, mi spiace lasciarvi per tutto questo 
tempo. Spero che anche voi passiate delle belle va- 
canze con il software e l’hardware a portata di mano. 

Al ritorno in città troverete un altro numero della 
vostra rivista, e tutto riprenderà come prima. Non 
scoraggiatevi, su con la vita e “tokenizzatevi”. Ciao. 
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Programmi di geologia 


Egregio Direttore, 
sono un ricercatore universitario as- 
siduo lettore della Vostra Rivista 
che trovo interessante ed utile. 

Ho letto con molto interesse il 
Suo editoriale “Il software oggi e 
domani” apparso sul n° 5 nel quale 
Lei fa riferimento a sistemi “esper- 
ti” afferenti a diverse discipline. 

In particolare sarei interessato a 
ricevere maggiori informazioni circa 
i programmi dedicati alla Geologia. 
Le sarei quindi veramente grato se 
mi fornisse maggiori dettagli sulla 
reperibilità di tali programmi e/o, se 
in Suo possesso, inviarmi del mate- 
riale illustrativo per il quale rimbor- 
serei le spese. 

Certo che la mia richiesta verrà 
esaudita, colgo l’occasione per com- 
plimentarmi con Lei per la Rivista 
(nella quale spero di trovare in futu- 
ro anche una sezione applicativa 
scientifica) e per porgerLe i miei 
cordiali saluti. 


Gerardo Brancucci 


Un “sistema esperto” è un pro- 
gramma che usa le tecniche dell’intel- 
ligenza artificiale per fare deduzioni 
basate su specifiche conoscenze for- 
nite da uno o più esperti. Sono stati 
realizzati sistemi esperti in differenti 
discipline. Per quanto riguarda la 
geologia, è stato sviluppato un siste- 
ma esperto di nome PROSPEC- 
TOR, descritto nell’articolo “Model 
Design in the Prospector Consultant 
System for Mineral Exploration” di 
R.O. Duda, J.G. Gaschnig e P.E. 
Hart, comparso in Expert System in 
the Microelectronic Age, un volume 
pubblicato nel 1979 dalla Edinburgh 
University Press, a cura di D. Mi- 
chie. Il progetto è stato finanziato 
dalla US Geological Survey e dalla 
National Science Foundation. PRO- 
SPECTOR può dare pareri su: (1) la 
possibilità che in una certa zona ci 
siano giacimenti di un certo minera- 
le; (2) la convenienza di una partico- 
lare esplorazione; (3) i migliori punti 
di trivellazione. La prima previsione 
di PROSPECTOR è stata quella 
relativa ad un giacimento di molib- 


deno, che pare sia stato effettivamen- 
te trovato là dove previsto (ma su 
questo non abbiamo notizie sicure). 

Può trovare un bell'articolo di ras- 
segna dei sistemi esperti (che contie- 
ne anche una spiegazione abbastan- 
za dettagliata di PROSPECTOR e 
una buona bibliografia) nel numero 
di settembre 81 di BYTE (R.O. Du- 
da J.G. Gaschnig Knowledge Based 
Expert Systems Come of Age): gli 
autori sono gli stessi di PRO- 
SPECTOR. 


Parliamo dell’ Atom 


Gentilissima Redazione di Perso- 
nal Software, vorrei sapere il perché 
dei pochi programmi pubblicati per 
il sistema ACORN ATOM. 

Ho aspettato pazientemente fino 
al numero cinque della rivista, spe- 
rando che dopo il programma RAL- 
LY pubblicato sul numero tre, ce ne 
fossero degli altri. 

Supponendo che non possiate ac- 
contentarmi, vi chiedo cortesemente 
di codificare le seguenti istruzioni 
per il mio sistema: READ; PRINT 
AT; DATA; INKEYS; CODE; 
CHRS; MIDS; POKE; PEEK ed in- 
fine l’assegnamento dei tasti, per si- 
mulare il pilotaggio di una astro- 
nave. 

Tutto questo è dovuto alla non 
validità del manuale del mio 
sistema. 

Aggiungo che la rivista è magnifi- 
ca, e nel futuro sarà ancora più for- 
nita. 


Baffigi Armando 
Roma 


È la legge della domanda e dell’of- 
ferta che fa sì che i programmi per 
l’Atom siano pochi. Il fatto è che, 
purtroppo, non è una macchina mol- 
to diffusa. 

Ci è oscuro comunque il significa- 
to della sua richiesta. Se per “codifi- 
care” intende dire il codice con il 
quale quelle istruzioni vengono me- 
morizzate, dobbiamo dire che l’A- 
tom non memorizza le istruzioni con 
un codice, ma lettera per lettera. Se 
invece intende chiederci come si “tra- 
ducono” per l’Atom, dobbiamo no- 


tare che READ e DATA possono es- 
sere simulate come indicato a pag. 92 
del manuale italiano, MIDS a sua 
volta può essere simulata come spie- 
gato a pag. 90 del manuale italiano, 
la POKE è spiegata a pag. 28 e così 
via:. Ma lei, il manuale, l’ha mai 
letto? 

Teniamo infine a precisare che 
quello italiano è l’esatta traduzione 
di quello inglese, quindi può trovare 
anche tutto lì, se possiede solo 
quello. 


Tante critiche e qualche lode 


Non ho l’abitudine di scrivere alle 
riviste perché quelle che seguo assi- 
duamente mi soddisfano in pieno © 
quanto meno mi premunisco non 
comprandole dopo averle “assaggia- 
te”, ma in questo caso... e qui casca 
l’asino, Voi siete gli unici (fino ad 
oggi) a pubblicare una rivista ver- 
tente su un argomento, lo ammetto, 
tanto volubile e tanto mutevole sia 
come idee di realizzazione, sia come 
concetti che ne sono alla base. Non 
voglio dire con questo che se doma- 
ni trovassi in edicola un’altra rivista 
di software, pianterei P.S. di volata, 
non fraintendetemi. Voglio però far 
presente alcune vostre prese di posi- 
zione nella gestione della Rivista. 
Innanzitutto credo che una rivista 
che si occupi esclusivamente di soft- 
ware, non dovrebbe fidare solo sul- 
l’invio dei programmi da parte di chi 
gli articoli dovrebbe leggerli piutto- 
sto che redigerli. Sono d’accordo 
sulla pubblicazione dei programmi 
“questo l’ho fatto io” ma, a mio pa- 
rere, dovreste essere voi per primi a 
generare questi articoli e non già 
rispondere a domande del tipo “*co- 
me mi suggerite di operare nei ri- 
guardi di questo problema” con: “Ci 
appelliamo alla clemenza dei nostri 
lettori: se c'è qualcuno tra voi di 
buon cuore in grado di sciogliere 
questo nodo, ci scriva mandandoci il 
listato, una cassetta e due righe di 
commento!”. Leggendo cose del ge- 
nere su P.S. accompagnate da un 
sottofondo di “Metodi di protezione 
della esclusiva esclusività all’uso dei 
vostri programmi” a dire il vero, ap- 
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parite in una ben strana luce di “di- 
spensatori” del sapere. 

D’altro canto però, devo ammet- 
tere che gli articoli che appaiono su 
P.S. sono quantomeno interessanti 
quando non sono illuminanti (a pro- 
posito: un plauso per il Dizionario 
di Basic); però quello che cerco di 
dirvi è che non dovreste aspettare 
che le montagne vengano a Voi pri- 
ma di muovere un dito. 

Poi c’è un altro fatto che mi fa 
letteralmente impazzire: la rivista è 
giovane... il costo della carta... il 
costo della stampa..., ma si può 
sapere perché una rivista che si cibi 
di Enervit Protein (leggi snellissima) 
e a cui collaborano redattori non 
professionisti (leggi articoli pagati a 
persone estranee alla Redazione), 
debba costare, a paragone di altre 
riviste, una cifra tanto alta? 

In collaborazione con il mio Com- 
modore 64 (un po’ di pubblicità non 
guasta, visto l’orientamento di 
P.$.), ho svolto questa piccola inda- 
gine, riscontrando che P.S. è, in 
assoluto, la più “cara” in tutti i 
sensi. 


P.S p. 68 
costo L. 3.500 L./pag. 5/.47 
M. & P. Comp. p. 100 
costo L. 3.000 L./pag. 30.00 
MC Comp. p. 116 
costo L. 3.000 L./pag. 25.86 
Comm. Comp. C. p. 68 
costo L. 2.000 L./pag. 29.47 
BIT p. 164 
costo L. 3.000 L./pag. 18.29 


Cercate di rivedere un po’ le cose 
in modo da non dare un’immagine 
di rivista parrocchiale ad una pub- 
blicazione di per sé tanto impor- 
tante. 

Siete la prima rivista europea di 
software, ma a noi non basta: vo- 
gliamo che siate la MIGLIORE in 
Europa e, scusate se tiro un po’ l’ac- 
qua al mio mulino, la più conve- 
niente come rapporto contenuti/ 
prezzo. 

Le mie proposte sono queste: 

1. Aumentate il numero delle pagi- 
ne (che tra l’altro questo mese si 
sono ridotte a 68 dalle già poche 
84!). 

2. Universalizzate, nei casi in cui 


ciò sia possibile, i programmi, di 
modo che il Basic prenda il posto 
dello sfortunato Esperanto. 

3. Pubblicate articoli sulle conver- 
sioni di dialetto da macchina e 
macchina. 

4. Pubblicate confronti tra metodo- 
logie diverse tese a risolvere lo 
stesso problema. 

S. Chi più ne ha, più ne metta. 
Scusate infine lo sfogo di un Vo- 

stro assiduo lettore, ma le cose che 

ho scritto mi ronzavano in testa già 
da un po’ di tempo e “quando ce 
vo’, ce vo”, come dicono su in 

Brianza. 

Con la speranza di aver dato an- 
che una pur minima collaborazione, 

colgo l’occasione per salutarVi di- 


stintamente. Vincenzo Iorio 


Salerno 


Tutte le maggiori riviste scientifi- 
che, ed anche la nostra che è di una 
particolare divulgazione scientifica, 
si basano sulle collaborazioni ester- 
ne. Provi a dare un’occhiata a BY- 
TE, Microcomputer, Creative Com- 
puting, per restare nell’ambito del 
software. I collaboratori interni, per 
quanto capaci, non possono avere 
un’idea brillante ogni 15 giorni, né 
scrivere un programma complesso 
ogni mese. 

In quanto alla sua statistica sul co- 
sto della rivista, non ha specificato 
quali fascicoli ha preso in considera- 
zione; tuttavia abbiamo l’impressio- 
ne che abbia conteggiato anche le pa- 
gine di pubblicità, che per correttez- 
za andrebbero escluse dal computo. 
Ma probabilmente, anche dopo aver 
fatto questo calcolo, PS resta la più 
cara. Le ragioni? Su PS non trovate 
le solite prove di hardware. Su PS 
non trovate articoli di “filosofia del- 
l'informatica”, né pagine e pagine 
sul computer a 8 anni (e per noi di 
302); né radici dell’informatica, né 
tabelle degli stipendi dei programma- 
tori. Su PS trovate idee (come anche 
il nostro amico lettore ammette), e le 
idee, interne o esterne, costano. 

Per quanto riguarda le sue richie- 
ste, le stiamo discutendo in redazio- 
ne. Probabilmente qualcosa di nuo- 
vo accadrà. 


Come collaborare 
e dizionario di Basic 


Spett.le Redazione, 
possiedo un Texas TI99 4/a con il 
Basic esteso e avrei intenzione di 
mandarvi alcuni miei programmi di 
giochi e soprattutto delle conversio- 
ni. Però non so se mandarveli già 
scritti in Basic esteso (per giochi 
non riesco più a farne a meno), o 
mandarveli scritti in TI Basic e la- 
sciare il lavoro di modifica (e so- 
prattutto di miglioria) ai fortunati 
come me. 

Poi volevo chiedere qualcosa sul 
famigerato “Dizionario di Basic”, di 
cui ho sentito parlare e ne ho letto 
qualche “pezzo”. Ma qui sta il pun- 
to, dopo qualche fascicolo la succi- 
tata rubrica è letteralmente sparita 
dalle pagine di PS. Poi ho letto una 
risposta che avete dato a un lettore 
dicendo che la state ancora pubbli- 
cando. 

Dov'è finito il Dizionario di 
Basic? È una domanda che mi sono 
posto e a cui non ho trovato rispo- 
sta. Allora mi sono deciso a scriver- 
vi sperando di avere una risposta. 

Complimenti per la vostra favolo- 
sa rivista, i miei saluti. 


Barbati Alberto 
Milano 


P.S.: Gradirei ricevere la “Guida 
per gli Autori” di cui leggo spesso 
nella vostra rivista. 


Riguardo alla prima questione, de- 
ve decidere lei: nel momento in cui 
sceglie di collaborare con la rivista, 
deve fare tutte le considerazioni del 
caso sull'argomento, di cui lei, in 
quanto collaboratore, è l’esperto. 
Per il Dizionario di Basic, che ha 
fatto preoccupare più di un lettore, 
nessuna paura. Dopo una breve pau- 
sa per motivi tecnici, riprenderà e 
andrà avanti fino alla Z. 


In questa rubrica rispondia- 
mo alle lettere di carattere ge- 
nerale. 

Scrivete a 


Personal Software 
Via Rosellini 12 
20124 Milano 


La sorgente | 
per le necessità del tuo computer 


7, Nella nostra sala mostra 
potrai ammirare e provare prodotti come: 
O stampanti 
UD floppy disk 
L] programmi 
i U biblioteca specializzata 
i Le migliori marche di Personal Computer 


= 1 Disponiamo infatti pronta consegna 
der Si di APPLE II, APPLE Il E, SIRIUS, asd® 
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DISTRIBUTORI ESCLUSIVI DEL FAVOLOSO 
“THE LAST ONE" PER IL VENETO 
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Conversione di programmi 
per ZX$S1 e ZX$80 nuova ROM 


Tuttiisegreti per 
trasformare qualunque 
programma Basic in un 
programma per lo 
ZX81 


di Bruno Del Medico 


— prima parte — 


ochi possono immaginare la 
pP rabbia di un sinclarista il 

quale, sfogliando Personal 
Software, vede sfilare sotto gli oc- 
chi decine di programmi convinto 
che non potrà mai usarli: program- 
mi per Apple, Tandy, Atari, VIC 
20, Atom e chi più ne ha più ne 
metta. E vero, ci sono anche pro- 
grammi per ZX81, ma al nostro 
amico sembrano pochi e inadegua- 
ti. Gli altri invece sembrano più 
belli, hanno sicuramente il fascino 
del proibito. 

In questo articolo vengono illu- 
strate alcune tecniche per converti- 
re programmi scritti per altri mi- 
crocomputer in un Basic compren- 
sibile allo ZX81 o ZX80 con nuova 
ROM: quando parleremo del pri- 
mo intenderemo sempre anche il 
secondo. 

Diciamo subito che la pratica è 
essenziale in questo genere di eser- 
cizi, quindi l’articolo è diviso in 
due parti: nella prima parte sono 
elencati dei principi di carattere ge- 
nerale ed alcuni semplici esempi, 
nella seconda parte affronteremo 
praticamente due programmi scritti 
per il PET Commodore e per | A- 
tari 800, trasformandoli in due pro- 
grammi per ZX81. 

Successivamente toccherà a voi 
fare dei tentativi. Se riuscite a con- 
vertire anche solo un breve pro- 
gramma, facendolo girare sullo 
ZX81, vedrete poi quanto sarà fa- 
cile ottenere sempre di più. 


Principi di carattere generale 


Le maggiori difficoltà nella con- 
versione di programmi sono deter- 
minate dalla diversità dei seguenti 
elementi: 

e gli indirizzi di memoria, 
© la grafica. 


Tutte le altre differenze, come 
quelle dovute alla sintassi del Basic 
o alla mancanza di particolari istru- 
zioni, possono essere superate ab- 
bastanza agevolmente. 

Non esiste una grammatica che 
insegni le regole per convertire i 
programmi. La pratica aiuta mol- 
tissimo, quindi per le prime espe- 
rienze è consigliabile scegliere pro- 
grammi abbastanza semplici, evi- 
tando in modo particolare quelli 
che contengono molte istruzioni 
PEEK e POKE o molte istruzioni 
READ, DATA e RESTORE. 
Inoltre è decisamente sconsigliabile 
scegliere subito dei giochi grafici 
complicati. 

Un programma va riscritto anche 
più volte in fase di conversione. 
Possiamo chiamare “passata” ogni 
successiva riscrittura del program- 
ma. Quindi avremo una prima pas- 
sata, nella quale cominceremo a 
cambiare alcuni elementi, poi una 
seconda passata, e se necessario 
anche passate successive. Nella pri- 
ma passata consiglio di attenervi ai 
principi generali illustrati qui di se- 
guito. 


ILEET 


Inserite dappertutto il LET. Per 
esempio la linea «i programma: 


hO N=22 
va riscritta così: 
10 LET Y=22 


I nomi delle variabili 


Cambiate dappertutto dove è ne- 
cessario: 


© i nomi delle variabili stringa, 

® i nomi delle variabili di controllo 
dei cicli, 

® i nomi delle matrici. 

Questo perché nel Sinclair tutte 
queste variabili devono avere un 
nome composto da una sola lette- 
ra. Quindi: 


10 FOR INC=1 TO 10 
20 DIM BUZ(4) 

30 LET GIO$=“CIAO” 
40 NEXT INC 


deve diventare: 


10 FORI=1TO 10 
20 DIM B(4) 

30 LET G$=“CIAO” 
40 NEXT I 


Non è necessario cambiare i no- 
mi delle variabili numeriche, per- 
ché in quel caso sono consentiti no- 
mi con più caratteri. Attenzione a 
non usare per i nuovi nomi delle 
lettere già usate nel programma 
per definire altre variabili. Prima 
di sostituire FOR INC con FOR I 
assicuratevi che .nel programma 
non sia già presente una variabile 


I numeri di linea 


Il Sinclair accetta numeri di linea 
fino a 9999, mentre altri microcom- 
puter consentono l’uso di numeri 
di linea fino a 65535. Se nel pro- 
gramma da convertire le linee han- 
no numeri superiori al 9999, dove- 
te cambiarli. Fate molta attenzione 
ai GOTO ed ai GOSUB che vanno 
ugualmente modificati. 
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Intero e decimale 


Eliminate dove sono presenti i 
segni % e ! nei nomi delle variabili 
numeriche; questi segni servono in 
molti microcomputer per distingue- 
re rispettivamente le variabili inte- 
re e quelle decimali. Una tipica li- 
nea di programma: 


10 A%=25/B 
può essere sostituita con: 
10 LET A=INT (25/B) 


Il segno ! può essere omesso sen- 
za conseguenze. Quando non sono 
associati ai nomi delle variabili nu- 
meriche, i segni % e ! possono ave- 
re altri significati. In particolare 
nell’Atom i segni ? e ! sostituisco- 
no i comandi POKE e PEEK. 


Completezza delle istruzioni 


Tenete presente che non sono 
mai consentite abbreviazioni nelle 
istruzioni. Quindi una linea di pro- 
gramma come questa: 


10 IF A=25 THEN 200 
va riscritta così: 
10 IF A=25 THEN GOTO 200 


Anche i NEXT vanno definiti 
con completezza. In molti micro- 


CICLO 


10 FORK=1T02 
20 PRINT “OK” 
30 NEXT K 


10 FORK=1T01 
20 PRINT “OK” 
30 NEXT K 


10 FORK=1T00 
20 PRINT “OK” 
30 NEXT K 


10 FORK=1 TO 2 STEP -1 
20 PRINT “OK” 
30 NEXT K 


10 FORK=1TO1 STEP -1 
20 PRINT “OK” 
130 NEXTK 


computer è possibile usare la for- 
ma: 


10 FORW=1 TO 10 
20 NEXT 


Nello ZX81 dovrete specificare: 
NEXT W. 

Un’altra abbreviazione non con- 
sentita è l’uso del punto interroga- 
tivo al posto dell’istruzione 
PRINT. Su programmi per PET, 
VIC 20, DAI potrete trovare: 


10 ? A$ 
In questo caso dovrete riscrivere: 
10 PRINT A$ 


I cicli FOR...NEXT 


Per quanto riguarda i cicli FOR 
...NEXT, alcuni microcomputer 
eseguono il seguente programma 


10 FOR HAZ=1T00 
15 PRINT “OK” 
30 NEXT 


scrivendo OK quando viene dato il 
run. 


Per ottenere il medesimo risulta- 
to con il Sinclair occorre usare lo 
STEP. Quindi: 


10 FORH=1TOO0STEP-1 
15 PRINT “OK” 
30 NEXT H 


OUTPUT 
2 volte OK 


1 volta OK 


nessun output 


nessun output 


1 volta OK 


Fig. 1. Contrariamente ad altri microcomputer, nei quali il ciclo FOR 
NEXT viene sempre comunque eseguito almeno una volta, vi sono dei casi 
nello ZX81 in cui il ciclo non viene eseguito. Nella figura sono illustrati i 
più interessanti. Di questa particolarità occorre tenere conto nella conver- 


sione dei programmi. 


La figura 1 illustra i possibili 
comportamenti del ciclo FOR 
...NEXT in diverse situazioni, te- 
nendo conto che il ciclo non viene 
eseguito neppure una volta se non 
è possibile, mentre invece in altri 
microcomputer viene sempre ese- 
guito almeno una volta. 


Linee con più istruzioni 


Molti microcomputer consento- 
no di scrivere più istruzioni sulla 
stessa linea, separate generalmente 
dai due punti o da altri segni. (Nel- 
l’Atom, il segno separatore è il 
punto e virgola. Altrove può essere 
la barra /.) Nella prima passata le 
linee con istruzioni multiple devo- 
no essere suddivise in più linee per 
esempio le seguenti linee: 


10 FORINC=1TO 10: 
FOR ES=1 TO 10 

20 ? INC, ES 

30 NEXT: NEXT 


vanno riscritte così: 


10 FORI=1TO 10 
12 FORE=1TO 10 


20 PRINTI,E 
30 NEXTE 
32 NEXTI 


Vi è anche un’altra forma di 
istruzioni multiple abbastanza ri- 
corrente: 


10 INPUT 
“COME TI CHIAMI ”; 
NOME$,COGNOME$ 


Questa linea va riscritta così: 


10 PRINT 

“COME TI CHIAMI ?” 
12 INPUT N$ 
14 INPUT C$ 


L’istruzione 
50 ON N GOTO 100,200 


va interpretata così: se N è uguale 
a 1 va alla linea 100, se N è uguale 
a 2 va alla linea 200. 

Può essere sostituita da due linee 
IF...THEN oppure dalla linea: 


50 GOTO N*+100 


Quando suddividete delle linee 
con istruzioni multiple in più linee, 
alla prima istruzione deve rimanere 
sempre assegnato il numero di li- 
nea originale. Le altre istruzioni 
non devono causare scorrimenti 
nelle linee successive: cioè le nuo- 
ve linee inserite debbono essere si- 
stemate tra quelle già esistenti. 
Questo per evitare che eventuali 
GOTO o GOSUB non trovino più 
l’istruzione corrispondente. Nel ca- 
so sia inevitabile cambiare la linea 
successiva, bisogna controllare se 
c'è un’istruzione GOTO o GOSUB 
che rimanda il programma a quella 
linea. 


5S GOTO 20 
19 PRINT: PRINT 
20 PRINT “CIAO” 


va riscritto così: 


S GOTO21 
19 PRINT 
20 PRINT 
21 PRINT “CIAO” 


Elementi delle matrici 


Nella quasi totalità dei micro- 
computer gli elementi delle matrici 
vengono inizializzati a zero, quindi 
il vettore DIM A(5) contiene in ef- 
fetti 6 elementi. Non così nello 
ZX81, dove gli elementi sono ini- 
zializzati a uno. Ricordate perciò 
che dovete sempre aumentare di 
uno il valore degli elementi nelle 
matrici. Quasi sempre nei pro- 
grammi con matrici si usano uno 0 
più cicli FOR...NEXT per elabo- 
rarle. In questo caso dovete cam- 
biare anche l’intervallo di azione 
del ciclo. Per esempio: 


10 DIM A(5) 
20 FOREST=0TO 5 
30 A(EST)=EST: NEXT 


va riscritto così 


10 DIMA (6) 

20 FORE=1TO 6 
30 LET A(E)=E 
32 NEXTE 


Gli elementi delle matrici stringa 
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nello ZX81 devono avere un nu- 
mero fisso di caratteri e ciò com- 
porta principalmente due inconve- 
nienti: 

10 DIM A$(3,8) 

20 INPUT A$(1) 


Se inserite BUONGIORNO lo 
ZX81 conserva solo 8 caratteri, 
BUONGIOR. 


30 LET A$(2)=“CHI” 
40 LET A$(3)=“SEI” 
50 PRINT A$(2);“ ”;A$(3); 


“97 


Dando il run otteniamo: 
CHI SEI Di 


anziché: CHI SEI?, perché i carat- 
teri sono comunque otto per ogni 
elemento. Quando non se ne può 
fare a meno, per non guastare l’e- 
stetica dell’output occorre inserire 
una subroutine come la seguente 
che elimini gli spazi a destra: 


500 LET B$=A$(x) 

FOR W=1 TO LEN B$ 
520 IF B$(LEN B$)< >“ ” 
THEN RETURN 

LET B$=B$(TO LEN 
B$-1) 

540 NEXT W 

550 RETURN 


x indica l'elemento della matrice. 
In fase di output naturalmente do- 
vremo stampare B$ e non A$(x). 
La linea 550 assicura il RETURN 
anche quando la stringa è compo- 
sta di soli spazi. 


MID$, RIGHT$ e LEFT$ 


Le funzioni di stringa del Basic 
standard LEFT$(A$,x),MID$ 
(A$,x,y) e RIGHT$(A$,x) non so- 
no disponibili nel Sinclair. Indicano 
rispettivamente: 


® gli x caratteri più a sinistra di A$ 

e gli y caratteri della stringa A$ 
partendo dal carattere x 

© gli x caratteri più a destra di A$ 


Se A$ = “BUONGIORNO”, allo- 
ra: 


LEFT$(A$,3) =“BUO” 
RIGHT$(A$,4)=“ORNO” 
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MID$(A$,4,2) =“NG” 
MID$(A$,3,1) =“O” 


Nello ZX81 potete avere rispetti- 
vamente: 


A$(TO 3) =“BUO” 
A$(7 TO) =“ORNO” 
A$(4 TO 5)=“NG” 
A$(3) =“O” 


CODE, CHR$ 


La funzione di stringa ASC di 
molti microcomputer equivale nel- 
la forma alla funzione CODE dello 
ZX81. ASC(A$) indica il numero 
ottenuto premendo il tasto equiva- 
lente al primo carattere di A$, se- 
condo il codice ASCII standard. Se 
A$ = “BUONGIORNO” allora: 


e in vari microcomputer: 
ASC(A$)=66, 
® nello ZX81: CODE(A$)=33, 


perché lo ZX81 non usa il codice 
ASCII. Nella tabella 1 potete leg- 
gere, nella colonna al centro, i nu- 
meri di codice usati nel Sinclair per 
le cifre da 0 a 9 e per le lettere da 
A a Z; nella colonna a destra i cor- 
rispondenti numeri di codice 
ASCII. 

Le medesime osservazioni valgo- 
no per la funzione CHRÎ$, per cui 


PRINT CHR$ (66) 
va tradotto così: 
PRINT CHR$ 39 


e provoca la stampa della lettera 


B. 


DEF FN 


L’istruzione DEF FN richiede 
una breve spiegazione. Sono possi- 
bili diverse DEF FN, da DEF FNA 
a DEF FNZ. Ciascuna può rappre- 
sentare una diversa funzione. Ve- 
diamo un esempio: 


10 DEF FNA(Y)=Y*Y+Y 
20 K=FNA(5) 
30 W=10+FNA(2) 


Nella linea 20, la variabile nume- 
rica K assume il valore di FNA 
(cioè Y*Y+Y) dove Y vale 5. 
Quindi K = 30. 


Nella linea 30 là variabile W as- 
sume il valore di 10 + FNA (cioè 
10+Y*Y+Y) dove Y vale 2. Quin- 
di W= 16. 

Nel Sinclair potremo scrivere: 


10 LET A$=“Y*Y+Y” 
20 LET Y=5 

22 LETK=VAL A$ 

30 LET Y=2 

32 LET W=10+VAL AÎ$ 


La funzione RND 
La funzione RND può assumere 


diversi aspetti nei vari microcom- 
puter. 


10 A=RND(1) 


NHXE<CAVAOVOZEERTATONTIOHdP OL UAwNrO 


Tabella 1. Corrispondenze tra il co- 
dice dei caratteri usato dallo ZX81 
ed il codice standard ASCII. La co- 
lonna a sinistra indica il carattere; 
la colonna al centro indica il nume- 
ro di codice corrispondente usato 
sul Sinclair, e la colonna di destra 
indica il codice ASCII. 


Equivalente ZX81 
CLS 


PRINT AT 0,0 
(pagina a capo) 


PRINT AT x,y 


PET, VIC 20 


PRINT CHR$(147) 
PRINT CHR$(19) 


DAI 
PRINT CHR$(12) 
CURSOR 23,0 


Disponibile solo la 


funzione TAB(x). 
Nel VIC quando x supera 
21 si passa alla linea 


successiva 
RETURN 
GET A$ 
ASC 

LOG (x) 
ATN (x) 
SYS indirizzo 
END-STOP 
WAIT 


NEWLINE (ENTER) 
A$=INKEY$ 

CODE 

LN x 

ARCTAN x 

USR indirizzo 

STOP 

PAUSE 


RETURN 

GETC=X$ 
ASC CH 
LOG (x) 
ATN (x) 


END-STOP 
WAIT TIME 


ATOM 
PRINT$ 12 
PRINT$ 30 


LOG (x) 
ATN (x) 
UT LINK label 
END 


RETURN 


ASC 

LOG (x) 

ATN (x) 
CALL indirizzo 
END-STOP 
WAIT 


Tabella 2. Equivalenza di alcune istruzioni dello ZX81 con quelle di altri microcomputer. 


genera di solito un numero casuale 
da 0 a 1 che può essere anche ne- 
gativo. Può essere sostituito da: 


10 LET A=RND 
oppure: 

10 LET A=-RND 
Invece la linea: 

20 A=RND (150) 


genera di solito un numero casuale 
da 0 a 150. Nello ZX81 possiamo 
scrivere: 


20 LET A=INT(RND*150)+1 


ed otteniamo un numero casuale 
da 1 a 150. Invece con la linea: 


20 LET A=INT (RND*151) 


otteniamo un numero casuale da 0 
a 150. 


READ, DATA, RESTORE 


Le istruzioni READ, DATA e 
RESTORE servono ad immagazzi- 
nare dei dati ed a recuperarli con 
un certo ordine, e non sono dispo- 
nibili nello ZX81. Vi sono molti 
metodi alternativi all’uso di queste 
istruzioni. Per esempio, i dati pos- 
sono essere immagazzinati in sin- 
gole variabili, in linee di program- 
ma REM, in matrici numeriche o 
meglio in matrici stringa. L’argo- 


x 


mento è abbastanza vasto e potrà 
essere oggetto di un prossimo arti- 
colo. Il listato 5 fornisce un esem- 
pio di conversione delle linee 
READ e DATA. 


Altre istruzioni 


Vi è poi tutta una serie di istru- 
zioni che possono esesre convertite 
semplicemente cambiando il nome: 
molte vengono illustrate nella ta- 
bella 2. 

Il punto e virgola associato al- 
l’istruzione PRINT conserva sem- 
pre la funzione tipica dello ZX81, 
cioè evita di andare a capo. (Solo 


INPUT N 
INPUT X 


nell’Atom il punto e virgola sosti- 
tuisce i due punti nel separare più 
istruzioni sulla stessa linea). Anche 
la virgola svolge una funzione simi- 
le, cioè sposta il cursore di un cam- 
po. Però se il campo dello ZX81 è 
di otto spazi, non è sempre così in 
altri microcomputer. Il PET spazia 
10 colonne, il VIC 20 dodici colon- 
ne, il DAI quattordici colonne. I 
caratteri grafici usati per tracciare 
linee o segni possono essere sosti- 
tuiti con caratteri analoghi disponi- 
bili sullo ZX81. I caratteri che indi- 
cano i semi delle carte (cuori, qua- 
dri, fiori e picche) possono essere 
sostituiti rispettivamente con C, Q, 
F e P in campo inverso. 


GOSUB 1090 


GOTO 1 


LET N$=STRS$(N) 
LET L=LEN N$-2 


LET X$=" ” 


IF L>2 THEN GOTO 1150 


LET I=L 


GOTO 1180 


FOR I=L TO 3 STEP -3 
LET X$="”."+N$(I TO 1+2)+X$ 


NEXT I 


LET X$=N$ (TO 1+2)+X$ 
PRINT TAB X-LEN X$;X$ 


RETURN 


Listato 1. Ripropone la routine “PUNTEGGIATURA” apparsa su PS1. 
La conversione è stata effettuata in una sola passata ed il programma gira, 
ma presenta il difetto di non punteggiare i numeri composti da 4 cifre. 
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1 INPUTN 
2 INPUT X 
3 GOSUB 1000 
4 PRINT 
5 GOTO1 
1000 REM SCOPO i 
1005 REM METTE LA PUNTEGGIATURA ALL ITALIANA NEI NUMERI 
INTERI CON PIU DI TRE CIFRE E LI INCOLONNA A DESTRA IN UNA 
POSIZIONE DETERMINATA 
1030 REM 
1040 REM VARIABILI: 
1050 REM N NUMERO DA PUNTEGGIARE (INPUT) 
1060 REM X POSIZIONE DI INCOLONNAMENTO (INPUT) 
1070 REM X$ NUMERO PUNTEGGIATO (OUTPUT) 
1081 REM VINCOLI: X DEVE ESSERE MAGGIORE DI INT(C/3)+C DOVE C 
SONO LE CIFRE DI N 
1090 LET N$=STR$(N) 
1100 LETX$= 
1110 LET L=LEN N$-2 
1120 IFL>=2 THEN GOTO 1160 
1140 GOTO 1180 
1160 LET X$=”."+N$ (L TO L+2)+X$ 
1165 LETL=L-3 
1170 IF L>0 THEN GOTO 1160 
1180 LET X$=N$ (TO L+2)+X$ 
1190 PRINT TAB X—LEN X$;X$S 
1200 RETURN 


Listato 2. // listato 2 propone il listato 1 ulteriormente modificato per elimi- 
nare i difetti. In pratica è stato abolito il ciclo FOR I (linee 1150-1170), 
rimpiazzato dalla istruzione IF della linea 1170. Questo perché il ciclo 
FOR I non veniva eseguito neppure una volta quando il numero da pun- 
teggiare era composto da 4 cifre (vedi figura 1 ed il paragrafo sui cicli 
FOR...NEXT). 


CLEAR 5000: MODE 0: PRINT CHR$(12): COLORT 15000 


DELE “INSERISCI IL PERIODO ESPRESSO IN MILLISECONDI”; 


110 IFVAL(TIME$)=0THEN GOTO 100 

o Tr 

1 “TENSIONE DI ALIMEN " 

150 IFVAL(VOLT$)=OTHEN PST IA ao ASI DOP 

160 VOLT=VAL(VOLT$) 

200 CAP1=TIME/5.5 

210 MAX=VOLT +»1000+3.3 

220 CAP2=TIME/(1.1+MAX) 

300 PRINT “PERUNA RESISTENZA MINIMA DI 5 KOHM LA CAPACITA 
a PUO ESSERE DI”; CAP1;“MICROFARAD" 


310 PRINT “"PERUNA RESISTENZA MASSIMA DI” ;MAX;“KOHM LA 
CAPACITA PUO ESSERE DI”;CAP2;“MICROFARAD” 

350 PRINT NEERIE 

360 PRINT “| CIILVALORE ISTENZA IN KOH 
OTTENERE IL VALORE DEGNE RELLARESÌ MER 

370 INPUTRM 

380 MO OR RMS MERE GOTO 370 

400 P “LA CAPACITA PER”;BM;“Ko ISTENZA 
E”;TIME/(1.1+RM);“MICROFARAD” Me 

450 GETC=Y:IFY=0THEN450 

500 PRINTCHR$(12) 

GOTO 300 


Listato 3. Questo programmino gira sul DAI, e rappresenta una semplicis- 
sima simulazione di un circuito elettronico. Il circuito integrato 555 può 
essere usato come timer e la frequenza di oscillazione varia in funzione 
della tensione di alimentazione e dei valori di resistenza e capacità collegati 
ai suoi piedini. Il programma calcola il valore della capacità in rapporto a 
diversi valori di resistenza e tensione. 
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L’istruzione DRAW serve a 
tracciare una linea sullo schermo 
ed è seguita di solito da 4 numeri 
che rappresentano le coordinate 
dei due vertici della linea. 


Alcuni brevi esempi 


I listati 1 e 2 rappresenta- 
no un’ottima routine Basic, 
“Punteggiatura”, presentata nel 
primo numero di Personal Softwa- 
re. E stata convertita per lo ZX81 
in una sola passata, secondo le re- 
golette espresse fino ad ora. Nel li- 
stato 1 sono state omesse per bre- 
vità le linee REM che appaiono co- 
munque nel listato 2. La routine 
mette la punteggiatura all’italiana 
nei numeri interi con più di tre ci- 
fre e li incolonna a destra di una 
posizione determinata. 

Il listato 1 può essere caricato e 
gira ma esegue il programma cor- 
rettamente solo con numeri di al- 
meno cinque cifre. Quando viene 
introdotto un numero di 4 cifre, la 
variabile L nella linea 1110 vale 2 
ed il programma passa dalla linea 
1120 alla 1180 saltando la routine 
della linea 1150. Se abbiamo intro- 
dotto per esempio il numero 1500, 
non otteniamo come vorremmo: 


1.500 


ma l’output viene ripresentato pri- 
vo del punto, quindi: 1500. Si può 
ovviare a ciò cambiando il >2 della 
linea 1120 con un >=2. Così fa- 
cendo anche i numeri di 4 cifre 
passeranno attraverso la routine 
1150 che mette il punto. — 

Proprio in questa routine però, 
quando introduciamo UN numero 
di 4 cifre, si verifica l’inghippo. Ve- 
diamo come. La variabile L nella 
linea 1110 diventa uguale a 2. La 
linea 1150: 


FOR I=L TO 3 STEP 3 


equivale a: 
FOR I=2 TO 3 STEP — 3 


Nello ZX81 il ciclo non viene 
eseguito neppure una volta quando 
non è possibile (vedi figura 1). 
Quindi la funzione svolta dalla rou- 


REM CALCOLO RC IN UN 555 USATO COME OSCILLATORE 
REM 
REM 
REM GIRA SU ZX81 E SU ZX80 8K 
REM 
REM 
PRINT “INSERISCI IL PERIODO ESPRESSO IN MILLISECONDI” 
INPUT T$ 
FORW=1 TO LEN T$ 
IF CODE T$(W)<28 OR CODE T$(W)>37 THEN GOTO 10 
NEXT W 
LET TIME=VAL T$ 
PRINT “TENSIONE DI ALIMENTAZIONE IN VOLT?” 
INPUT V$ 
FORW=1 TO LEN V$ 
IF CODE V$(W)<28 OR CODE V$(W)>37 THEN GOTO 142 
NEXT W 
LET VOLT=VAL V$ 
LET CAP1=TIME/5.5 
LETMAX=3.3xVOLT+1000 
LET CAP2=TIME/(1.1+MAX) 
PRINT “PER UNA RESISTENZA MINIMA DI 5 KOHM LA CAPACITA 
PUO ESSERE DI ";CAP1; “ MICROFARAD" 
È 

PRINT “PER UNA RESISTENZA MASSIMA DI ”;MAX; “ KOHMLA 
CAPACITA PUO ESSERE DI ”;CAP2; “ MICROFARAD" 

NT 
PRINT “INSERISCI IL VALORE DELLA RESISTENZA IN KOHM PER 
OTTENERE IL VALORE DELLA CAPACITA” 
INPUT RM 
IFRM<50RRM>MAX THEN GOTO 370 


PRINT 


PRINT “LA CAPACITA RICHIESTA PER “;RM;“ KOHM DI RESISTENZA 
E “;TIME/(1.1+RM);“ MICROFARAD” 
PRINT AT 21,0;“PREMI NEWLINE” 


GOTO 300 


Listato 4. Questo listato propone il programma del listato 3 convertito per 
ZX81. La linea 110 è stata sostituita dalla linee 110-114. Analogamente la 
linea 150 è stata sostituita dalla linee 144-148. Scopo di quelle linee è con- 
trollare che i caratteri delle stringhe TIME$ (T$) e VOLT$(V$) siano effet- 
tivamente cifre numeriche. Se ciò non è vero il DAI assegna alla stringa in 
oggetto il valore di 0, mentre invece il Sinclair si blocca e dà segnale di 
errore quando vengono eseguite le linee 115 e 150. Di conseguenza la rou- 
tine di controllo dell’input nella versione per il Sinclair è più complessa. 


tine FOR I ... NEXT I delle linee 
1150-1170 deve essere ottenuta in 
altro modo. 

Il listato 2 rappresenta la stesura 
definitiva del programma 
“Punteggiatura”, convertito € fun- 
zionante per ZX81. In pratica È 
stato abolito il ciclo FOR...NEXT 
inserendo al suo posto la linea 1170 
che fa girare il programma sulla li- 
nea 1160 finché la variabile 1.8 
maggiore di zero. 

Il listato 3 presenta un program- 
ma scritto per il DAI, che calcola i 
valori di resistenza e capacità ne- 
cessari a far oscillare con una de- 
terminata frequenza un integrato 


555. Il listato 4 presenta lo stesso 
programma del listato 3 convertito 
per lo ZX81 in una sola passata. 

Il listato 5 ripropone invece la 
routine “Controllo del codice 
fiscale” apparsa sul numero 4 di 
Personal Software. I dati contenuti 
nelle linee DATA (20 e 30) sono 
stati inseriti in due variabili Stringa. 
Nella linea 30 ai dati formati da 
una sola cifra sono stati posposti 
degli zeri in modo che Ogni dato sia 
composto da due caratteri senza al- 
terarne il valore. In questo modo 
la linea 80 può svolgere senza con- 
fusione il suo compito: ripescare a 
due a due con la funzione SLI- 


CING i caratteri nella stringa X$ 
assegnandone il valore agli elemen- 
ti della matrice D con l’aiuto della 
funzione VAL. 

Tutti i numeri di linea superiori 
al 9999 sono stati ricondotti a valo- 
ri inferiori, e la linea 110 (GOSUB 
10000) è diventata GOSUB 1000. 
Così pure tutte le altre istruzioni 
GOTO sparse nel programma sono 
state modificate. 

Le linee di controllo dell’input 
(cioè la 10040 e la 10070) sono sta- 
te modificate inserendo la funzio- 
ne CODE perché la forma origina- 
le non è disponibile sul Sinclair. 
La funzione ASC delle linee 
10200,10260 e 10290 è stata sosti- 
tuita dalla funzione CODE edi nu- 
meri di codice relativi sono stati 
cambiati secondo la tabella 1. 


La seconda passata 


Essenzialmente nella seconda 
passata, oltre a convertire la parte 
grafica, dovete intuire la funzione 
di alcune istruzioni strane proprie 
di quel determinato microcompu- 
ter. Potete domandare lumi ad un 
amico che possieda quella macchi- 
na, o eventualmente consultare il 
materiale di cui disponete: manuali 
d’uso, articoli di riviste, ed altro. 
Ma come ripeto, è essenzialmente 
una questione di pratica e di intui- 
zione e, se non vi siete impegnati 
con un programma ricco di PEEK 
e di POKE, con un po’ di medita- 
zione dovreste riuscire a venirne a 
capo. 

Purtroppo non è possibile in un 
articolo trattare tutte le possibilità 
che si possono presentare. Nella 
seconda parte, commentando la 
conversione di due programmi 
scritti per Commodore e Atari, 
cercheremo di individuare tutte le 
possibili istruzioni strane reperibili 
su quegli apparecchi. 

Un elemento importante da te- 
nere presente nella seconda passa- 
ta è che lo ZX81 non ha scroll au- 
tomatico, quindi tutti gli output 
dovranno essere organizzati in di- 
verse videate, separate da opportu- 
ne istruzioni CLS. . i 

Anche per questo è necessario 
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dedicare una decina di minuti allo 
studio del programma, cercando di 
capire come lavora. Comunque è 
indispensabile individuare con 
chiarezza le principali routine e su- 
broutine. Queste si intravvedono 
abbastanza bene, con l’aiuto delle 
istruzioni GOTO e GOSUB. Se 


REM 


5 REM 
10 DIM C(18) 
12. DIM D(26) 


30 LET X$ = 


40 FOR I=1 T016 
50 LETCII)=VAL WS/1) 
60 NEXTI 

70 FORI=1T026 


INPUT A$ 

GOSUB 1000 

IF Z=0 THEN GOTO 130 
PRINT “ERRATO” 

121 STOP 

PRINT “GIUSTO” 

STOP 


LETRZ=1 


LET 1=1 
LET B$=A$ (1) 


IF C(1)< >0 THEN RETURN 
GOTO 1110 


IF C(1)< >1 THEN 
LET 1=1+1 RETSRN 


IF I<=16 THEN 

LET S=0 GOTO 1030 
FOR |=1 TO 15 STEP 2 

LET B$ = A$/(1) 

IF C(1)=0 THEN GOTO 1200 
LET S=S+D (VAL B$+1) 
GOTO 1210 

LET S=S+D (CODE B$-37) 


IF 1=15 THEN GOT: 
LET B$=A$(1+1) 01270 


LET S=S+VAL B$ 
GOTO 1270 

LET S=S+(CODE B$-37) 
NEXT I 

LET R=S-INT(S/26)+26 


LET Z=0 
RETURN 


REM CONTROLLO DEL CODICE FISCALE 


1 
2 
3. REM PROGRAMMA APPARSO SU PERSONAL SOFTWARE N. 4 
4 REM CONVERTITO PER ZX81 E ZX80 8K 


20 LET W$="0000001101101110” 


“0100050709131517192102041820110306081214161022252423” 


80 LET D(I)=VAL X$ (1+2-1T 
NEXT | i sii 


IF LEN A$< >16 THEN RETURN 
IF CODE B$<38 OR CODE B$>63 THEN GOTO 1070 


IF CODE B$<28 OR CODE B$>37 THEN RETURN 


IF C(I1+1)=0 THEN GOTO 1260 


IF A$(16)< >CHR$(R + 38) THEN RETURN 


per esempio in un programma leg- 
giamo le istruzioni: 


GOSUB 100 
GOSUB 245 


esistono due subroutine, di cui una 
va dalla linea 100 fino al successivo 
RETURN e l’altra dalla linea 245 


Listato 5. I! listato 5 ripropone la routine Basic “Controllo del codice 
fiscale” (PS4), convertita per lo ZX81. Nella conversione delle linee 1040, 
1070, 1200, 1260 e 1290 si è dovuto tenere conto del fatto che la funzione 
CODE dà valori diversi da quelli del codice ASCII (vedi la tabella 1 ed il 
paragrafo sulla funzione CODE). I dati contenuti nelle linee DATA sono 
stati immagazzinati in variabili stringa e vengono ripescati con la funzione 
di slicing nelle linee 50 e 80. 
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fino al successivo RETURN. Ge- 
neralmente in ogni programma che 
non usi esclusivamente testo vi è 
una subroutine (o una routine) gra- 
fica che provvede a stampare l’out- 
put. Questa è quella che ci darà 
maggiore filo da torcere, a seconda 
della quantità di punti indirizzabili 
sullo schermo. Saremo fortunati 
quando proveremo a convertire 
programmi Sinclair. Se invece sce- 
glieremo di convertire un program- 
ma scritto per un computer a 80 
colonne, allora sarà abbastanza 
problematico restringere l’output 
nelle nostre 32 colonne. 

E importante individuare all’in- 
terno di questa routine grafica le 
variabili che rappresentano le coor- 
dinate di schermo, dovendole poi 
rapportare ai valori massimi con- 
sentiti nel Sinclair, cioè 32 colonne 
per 22 linee, o al massimo 43 X 63 
punti con la funzione PLOT. 

Ovviamente quelle variabili si 
possono trovare sparse un poco 
dappertutto nel programma, ed in 
ogni posto devono essere modifica- 
te con il medesimo rapporto. Il 
metodo sperimentale (per tentati- 
vi) è sempre il migliore per rag- 
giungere buoni risultati, nella con- 
versione della parte grafica. 


La prova del programma 


A questo punto il programma 
può essere caricato sullo ZX81. Se 
proprio non avete capito il signifi- 
cato di qualche strana linea di pro- 
gramma e non sapete come SCrIVer- 
la in modo accettabile al Sinclair, 
allora omettetela e provate a vede- 
re che cosa non funziona quando 
date il run. Spesso accade che il 
programma giri ugualmente bene 
da quel punto di vista. i 

Potete star certi però che il pro- 
gramma ed in particolare la routine 
grafica avranno bisogno di molti 
nuovi ritocchi prima di funzionare 
a dovere. Fate attenzione agli erro- 
ri di tipo 5. Questi indicano che 
non c’è posto sullo schermo per 
mancanza dello scroll automatico, 
quindi dovrete inserire in qualche 
posto una istruzione CLS organiz- 
zando in modo diverso l’output 
presentato sul video. MI 


Master mind contro il VIC 


Un esempio 
“casalingo” di 


intelligenza artificiale 


di Paolo Pulli 


uesto programma è una ver- 

sione del famoso gioco di 

logica ed intelligenza. È un 

gioco indubbiamente sfrut- 
tato, ma questo programma si dif- 
ferenzia da quelli che ho visto rea- 
lizzare finora per il fatto che la par- 
tita viene giocata anche dal calcola- 
tore che tenterà, con frequente 
successo, di indovinare il numero 
segreto del giocatore. E un pro- 
gramma interessante nonostante il 
suo carattere ludico, in quanto il 
calcolatore non si riduce a control- 
lare le mosse del giocatore ma gio- 
ca attivamente la sua partita. 

È un programma apparentemen- 
te “intelligente” anche se, è bene 
precisare, di intelligente non c’è 
niente perché il calcolatore arriva 
ad indovinare il numero segreto 
del suo avversario solo seguendo 
un algoritmo che spiegherò più 
avanti. 


Spiegazione del gioco 


Ciascuno dei 2 giocatori (voi ed 
il calcolatore) deve pensare un nu- 
mero segreto di 5 cifre tutte diver- 
se tra loro, con lo zero che può oc- 
cupare anche la prima posizione 
(es. 12345, 02497, ma non 14618). 
L’avversario dovrà tentare di indo- 
vinarlo basandosi sulle risposte ri- 
cevute ai propri tentativi. Ad ogni 
tentativo del proprio avversario si 
dovrà rispondere con due numeri: 
il primo è il numero di “+”, ossia 


di cifre indovinate al posto giusto, 
ed il secondo è il numero di “—”, 
vale a dire di cifre indovinate ma al 
posto sbagliato. Il programma la- 
scia il primo tentativo al giocatore 
e se questi ottiene per primo l’atte- 
so 5+, il calcolatore ha un altro 
tentativo a disposizione che se è 
azzeccato porta la partita a conclu- 
dersi in parità. 

Il numero dei numeri pensabili, 
all’inizio del gioco, è molto elevato 
e cioè pari a 30240, però il numero 
di possibilità si riduce già dopo il 
primo tentativo. Con semplici cal- 
coli combinatori si ha che, a secon- 
da della somma totale dei segni + 
e — ottenuti al primo tentativo il 
numero di possibilità P che restano 
è: 


con005 P<120 
condol P<3000 
con3 02 P<12000 


Nei casi più sfortunati sono ne- 
cessari 7 tentativi per essere battuti 
o per indovinare (a meno di errori 
logici). 

Il programma è stato scritto per 
il VIC 20 versione standard con 3.5 
Kbyte di RAM. Con poche modifi- 
che è immediatamente trasportabi- 
le su ogni tipo di PET (è lo stesso 
interprete Basic 4.00) e anche su 
altre macchine, in quanto si sono 
utilizzate solo istruzioni Basic. 

Dunque munitevi di carta e ma- 
tita, rispondete sempre alle do- 
mande del calcolatore e soprattutto 
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non barate perché verreste scoper- 
ti. 
Buon divertimento. 


Logica del programma 


Per chi non conoscesse il gioco è 

consigliabile giocare qualche parti- 
ta con amici (o col calcolatore) per 
impratichirsi prima di leggere 
quanto seguirà. Dal punto di vista 
logico è interessante la via seguita 
per formulare il nuovo tentativo 
del calcolatore e portarlo conse- 
guentemente a stabilire il numero 
del giocatore. Spiegherò qui l’algo- 
ritmo seguito senza scendere nei 
dettagli del programma. La formu- 
lazione del nuovo tentativo viene 
fatta nella parte circondata a trat- 
teggio nello schema a blocchi sem- 
plificato visibile in figura 1. L’ese- 
cuzione inizia con la formazione in 
un vettore integer a 5 elementi del 
numero segreto del calcolatore, 
successivamente viene richiamata 
la subroutine alla linea 1000. Que- 
sta subroutine non svolge altra fun- 
zione che richiedere il tentativo del 
giocatore, calcolare il numero di + 
e di — per confronto con le cifre 
del numero nascosto del calcolato- 
re è stampare la risposta al tentati- 
vo. La subroutine 1000 è quindi in- 
dipendente dal resto del program- 
ma. 

In seguito avviene la costruzione 
casuale del primo tentativo del cal- 
colatore in un altro vettore. Il nu- 
mero costruito viene visualizzato e 
viene richiesta la risposta del gioca- 
tore. Il tentativo e le relative rispo- 
ste vengono memorizzate in modo 
opportuno (vedi Remark). Poi si 
richiama nuovamente la subroutine 
1000. 

Dopo viene eseguita la parte che 
stabilisce quale procedura deve se- 
guire il calcolatore per formulare il 
suo successivo tentativo (sono pos- 
sibili 3 casi) a seconda delle rispo- 
ste che si sono verificate e da qui si 
entra nella parte racchiusa a trat- 
teggio. 

Il criterio che il calcolatore segue 
per discriminare tra tentativi possi- 
bili e tentativi da scartare e per ar- 
rivare a trovare il numero pensato 
dal giocatore è il seguente: se il 
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Start ) 
Inizializzazione variabili 


Costruzione vettore con numero 
segreto del calcolatore 


Subroutine 1000 
Costruzione casuale del 1. 
tentativo del calcolatore 


Visualizzazione tentativo 
del calcolatore 
Input risultati 


F1=1 
o E%(C)=5? 


No 
Subroutine 1000 


Controllo risultati ultimo 
tentativo e scelta procedura 
per formulare il nuovo 


Calcolo sul tentativo base dei 
possibili insiemi di cifre 
(apertura FOR - NEXT) 


L'insieme 
è valido per le 


permutazioni 
? 


Prosecuzione del calcolo 
degli insiemi I 
(chiusura FOR - NEXT) 


| | 


Conclusione 
partita 


Cambio delle 5 cifre 


Formazione delle 
permutazioni 
dell'insieme 


È logicamente 


possibile 
? 
Sono 
finite le 


ermutazioni 
P Di No 


Figura 1. Diagramma di flusso di massima 


tentativo del calcolatore deve esse- 
re il numero del giocatore, con- 
frontando il possibile tentativo con 
ciascuno di quelli precedenti si de- 
ve ottenere lo stesso numero di + 
e lo stesso numero di —. Quando 
Ciò avviene il tentativo si può dire 
logicamente possibile oppure com- 
patibile con i precedenti. Questa 
tecnica è quella che può seguire 
anche il giocatore oculato. 

Si devono ora formulare i possi- 
bili tentativi. Una strada semplice 
per risolvere il problema potrebbe 
essere quella di scrivere un pro- 
gramma che formuli ad uno ad uno 
la totalità dei 30240 numeri pensa- 


bili compiendo per ognuno la veri- 
fica prima detta. Proseguendo nel 
calcolo si troveranno dei numeri 
logicamente possibili che divente- 
ranno nuovi tentativi. Così facendo 
si arriverebbe sicuramente al nu- 
mero del giocatore ma ciò potreb- 
be comportare dei tempi di esecu- 
zione terribilmente lunghi. Per evi- 
tare questo si deve cercare di utiliz- 
zare, nel modo migliore, le risposte 
date al calcolatore per ridurre il 
numero dei numeri pensabili. 
Prima di proseguire è meglio ac- 
cennare a cosa si intende in mate- 
matica (calcolo combinatorio) per 
combinazioni e permutazioni. Si 


chiamano combinazioni di classe K 
di N oggetti distinti tutti i possibili 
insiemi di K oggetti distinti scelti 
tra gli N oggetti dati (con K=N) ri- 
guardati però come insiemi non or- 
dinati, cioè in ogni insieme non si 
tiene conto dell’ordine secondo cui 
si susseguono gli oggetti dell’insie- 
me stesso (es. le combinazioni di 
classe 2 dei 3 oggetti 1 2 3 sono: 
12,23,31). 

Si dicono invece permutazioni di 
N oggetti distinti tutti i possibili in- 
siemi costruibili disponendo gli N 
oggetti in ordine diverso. Ogni per- 
mutazione differisce da un’altra 
soltanto per l’ordine con cui si sus- 
seguono gli stessi oggetti. Il nume- 
ro delle permutazioni di N oggetti 
è dato dal fattoriale di N cioè: NI. 

Si può dire numero pensabile un 
numero solo ipotizzabile in base al 
risultato ottenuto da un generico 
tentativo del calcolatore. Un nu- 
mero pensabile può non essere lo- 
gicamente compatibile con i tenta- 
tivi precedenti. Chiarirò con un 
esempio come vengono calcolati 
tutti i numeri pensabili. 


Supponiamo che al primo tenta- 
tivo del calcolatore il giocatore ri- 
sponda con N segni complessivi 
(con N#0 ed N#5, i casi ovvi N=0 
ed N=5 vengono trattati diversa- 
mente) non preoccupandoci per il 
momento di quanti siano + e 
quanti —. Per ricercare un numero 
pensabile il calcolatore dovrà man- 
tenere N cifre tra quelle giocate e 
sostituire le rimanenti (5-N) con 
cifre scelte tra quelle 5 cifre non 
giocate (le cifre arabe sono 10). 

Ma scegliere N cifre tra le 5 gio- 
cate in tutti i modi possibili signifi- 
ca formare tutte le combinazioni di 
classe N di 5 oggetti; e sostituire 
(5-N) cifre, sempre in tutti i modi 
possibili, equivale a costruire le 
combinazioni di classe (5S-N) di al- 
tri 5 oggetti che sono le cifre esclu- 
se. Per ognuna delle combinazioni 
del primo tipo dovranno essere 
tentate tutte quelle del secondo ti- 
po. Seguendo questa strada è pos- 
sibile costruire un certo numero / 
(dipendente da N e facilmente cal- 
colabile con il calcolo combinato- 
rio) di insiemi di 5 cifre, che diffe- 
riscono tra loro in almeno una ci- 


fra, ancora pensabili dopo il primo 
tentativo del calcolatore. 

Questi / insiemi non sono però 
ancora i rimanenti numeri pensabi- 
li a cui si vuole arrivare perché per 
costruzione sono insiemi disordina- 
ti. La posizione delle cifre è invece 
fondamentale nel gioco. Sfruttando 
però la nozione di permutazione è 
manifesto che ciascuno di questi in- 
siemi dà origine ad un numero di 
numeri pensabili pari alle permuta- 
zioni di 5 oggetti che sono: 


S!= 120 


e il numero totale di numeri pensa- 
bili dopo il primo tentativo del cal- 
colatore è dato dal prodotto: 
120*/. 

Questo numero (i suoi valori so- 
no quelli riportati a inizio articolo 
e dipendenti da N) è certamente 
minore dei 30240 numeri pensabili 
originariamente. Tornando al dia- 
gramma di flusso, tutti i possibili 
insiemi di numeri ancora pensabili 
vengono costruiti nel blocco segna- 
to con A, mentre le permutazioni 
di ognuno di questi insiemi vengo- 
no formate nel blocco B. I due 
blocchi sono in realtà nidificati nel 
programma e non separati come 
schematizzato sul diagramma di 
flusso (blocco B interno al blocco 
A). 

Gli insiemi di 5 cifre, le permu- 
tazioni, i tentativi ecc. vengono 
manipolati nel programma come 
vettori integer a 5 elementi di cui 
ogni elemento contiene una cifra. 

Per costruire gli / insiemi pensa- 
bili e le loro permutazioni si deve 
quindi partire da un certo tentativo 
già giocato (nell’esempio era il pri- 
mo) che si può chiamare tentativo 
base. Il programma riduce sistema- 
ticamente e progressivamente il 
numero dei numeri pensabili se- 
guendo 3 accorgimenti. 


Il primo è quello di tenere come 
tentativo base quello in cui si è ot- 
tenuto il massimo numero come 
somma dei + e dei —. Ad esem- 
pio: se nel primo e nel secondo 
tentativo il calcolatore ha ottenuto 
3 segni complessivi e nel terzo ten- 
tativo ottiene 4 segni, quest’ultimo 
diventa il nuovo tentativo base per 
costruire i successivi in modo che i 


numeri ancora da costruire siano 
3000 anche se quelli logicamente 
possibili saranno molti di meno. 

Come secondo accorgimento 
non vengono più costruiti i tentati- 
vi già verificati e scartati. Rifacen- 
domi all'esempio precedente: se al 
quarto tentativo il calcolatore arri- 
va dopo averne scartati 500 dei 
3000 ancora pensabili (il primo nu- 
mero logicamente possibile è il 
501.esimo) e a questo tentativo ot- 
tiene nuovamente 4 segni (o un nu- 
mero minore, cioè non migliora la 
situazione), riprenderà a formare i 
suoi numeri pensabili dal 
502.esimo, perché è evidente che 
se i primi 500 erano logicamente 
incompatibili coi primi 3 giocati, lo 
saranno sicuramente anche coi pri- 
mi 4. 

Il terzo accorgimento è quello 
che fa diminuire maggiormente i 
tempi di risposta. Ho detto come la 
costruzione del nuovo tentativo av- 
viene in due fasi: prima viene for- 
mato in un vettore un insieme di 5 
cifre ancora pensabile e poi di que- 
ste 5 cifre vengono calcolate in un 
altro vettore tutte le possibili per- 
mutazioni che sono: 5! = 120. Si 
può capire però che un insieme di 
S cifre sarà candidato a generare 
una permutazione logicamente 
possibile solo se, confrontando 
questo insieme con ciascuno dei 
tentativi precedenti del calcolatore, 
si riesce ad ottenere la stessa som- 
ma totale di segni. Ciò significa che 
in questo insieme sono contenute 
delle cifre che, a prescindere dalla 
loro posizione, combaciano coi 
tentativi precedenti. L’insieme è 
allora valido per essere permutato. 
In caso contrario è inutile calcolare 
le 120 permutazioni e per ognuna 
di queste fare i confronti ma l’in- 
sieme viene scartato passando al 
successivo: il programma risulta 
molto più veloce. 

Tutto questo procedimento vie- 
ne seguito nel caso generale. Nei 
casi favorevoli in cui (sempre N 
numero totale di segni ottenuti) si 
ottiene N=0 o N=5 si passa diret- 
tamente al calcolo delle permuta- 
zioni, nel primo caso cambiando e 
nel secondo mantenendo tutte le 
cifre. 
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Naturalmente dopo il primo ten- 
tativo il totale dei numeri logica- 
mente possibili è ancora elevato 
per cui ne viene trovato uno quasi 
subito, ma aumentando il numero 
dei tentativi giocati, la rosa dei nu- 
meri logicamente possibili si riduce 
rapidamente. 

Mediante tutte le esclusioni si- 
stematiche degli insiemi e dei ten- 
tativi logicamente impossibili si ar- 
riva inesorabilmente al numero se- 
greto del giocatore (se questi non 
indovina prima) con dei tempi di 
risposta accettabili. 

Questi tempi sono in media infe- 
riori ai 5 minuti (con rari casi da 20 
minuti). E possibile ottimizzare an- 
cora il programma rendendolo for- 
se più veloce, ma le migliorie lo 
complicherebbero e comportereb- 
bero una eccessiva occupazione di 
memoria (siamo al limite!). 


Descrizione del programma 


10 - 90 La linea 20 dimensiona le 
matrici ed i vettori utilizzati. 
Per il resto non sono neces- 
sarie spiegazioni. 

100 - 150 La linea 100 inizializza 
le variabili che lo richiedono 
con il valore 0; questa linea 
si rende necessaria anche se 
il VIC assume per le variabili 
lo zero come valore di de- 
fault per le partite successive 
alla prima. Alle linee 110- 

0 vengono scritte nel vet- 
tore integer X% le cifre del 
numero segreto del calcola- 
tore, con la precauzione 
(130-140) che non si ripetano 
2 cifre uguali. 

160 - 210 Il GOSUB 1000 (160) 
richiama la subroutine che ri- 
chiede, controlla, ecc. il ten- 
tativo del giocatore. Alle 
170-210 vengono scritte ca- 
sualmente nel vettore L% le 
cifre che costituiscono il pri- 
mo numero giocato dal cal- 
colatore. Le istruzioni sono 
analoghe a quelle tra 110 e 
150. 

250 - 290 Alla linea 250 viene ri- 
copiato il vettore L% nella 
C.esima riga della matrice 
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Variabili semplici 


A,B,D Variabili di lavoro 
usate per scopi vari. 


Fl Flag. Stabilisce se il 
giocatore ha indovina- 
to (Fl=1: Sì). 


F2 Flag. Stabilisce se il 
blocco permutazioni è 
stato chiamato diretta- 
mente, cioè se si è ve- 
rificato uno dei 2 risul- 
tati più favorevoli 
N=0 o N=5 (F2=1: 
SÌ). 

G Contatore dei tentativi 
giocatore. 


C Contatore dei tentativi 
del calcolatore meno 
uno. E un puntatore 
all’ultima riga riempita 
di A%. 

Massimo numero tota- 
le di segni conseguiti 
dal calcolatore in un 
tentativo. 


(©) Riga di A% dove è 
memorizzato il tentati- 
vo che ha ottenuto N 
segni (tentativo base). 


Contatori dei numeri 
di + e di — nei con- 
fronti tra i numeri. 


M,P,M1,P1 


Stringhe 

Y$ Stringa di lavoro. Ser- 
ve per l’input e l’out- 
put dei numeri conte- 
nuti nei vettori. 


A% 


Matrice integer 5 co- 
lonne per 11 righe. In 
ogni riga viene memo- 
rizzato un tentativo 
giocato dal calcolato- 
re. 


E%, S% Vettori integer a 11 
elementi. Contengono 
rispettivamente i nu- 
meri di più e di meno 
conseguiti dal calcola- 
tore. Ogni elemento di 
E% ed S% è relativo 
alla corrispondente ri- 
ga di A%. 


Vettore a 5 elementi 
contenente le cifre del 
numero segreto del 
calcolatore. 


X% 


C% Vi vengono scritte le 5 
cifre non contenute 
nel tentativo base o ci- 


fre sostituibili. 


Y% Vi vengono formati 
tutti i possibili insiemi 
di 5 cifre ancora pen- 
sabili. 


L% È il vettore nel quale 
vengono formate tutte 
le permutazioni delle 5 
cifre contenute in 
Y%. 


Vettore a 5 elementi 
di lavoro. Vi viene 
scomposto il tentativo 
del giocatore per i 
confronti con X% e 
per altri usi. 


Tabella 1: Variabili principali di programma. 


A% e le cifre in esso conte- 
nute vengono compattate 
nella stringa Y$ per consenti- 
re una agevole stampa alla li- 
nea 260. La 280 effettua l’in- 
put nelle C.esime variabili 
dei vettori E% ed S% dei 
numeri di + e di — ottenuti e 
stabilisce se la partita è fini- 
ta. In caso positivo si salta 
alla 1300. In caso contrario 
la 290 fa giocare subito la 
Nuova mossa al giocatore. 
300 - 330 Dalla 300 il calcolatore 
“pensa” al successivo tentati- 
vo che dovrà giocare. In que- 
ste linee si scrivono nel vet- 
tore P% le cifre che non so- 
no state giocate nell’ultimo 


tentativo del calcolatore che 
è ancora contenuto in L%. 
340 - 380 Si stabilisce quale via 
deve scegliere il calcolatore 
per determinare il suo suc- 
cessivo tentativo. Precisa- 
mente si hanno 3 vie per en- 
trare nel blocco tratteggiato 
del diagramma di flusso: 
1. Se non ha conseguito nes- 
sun segno nel tentativo pre- 
cedente vengono cambiate 
tutte le cifre copiando P% in 
Y%, poi si salta al calcolo 
delle permutazioni di Y% 
(linea 350). Analoga situa- 
zione se il calcolatore ha 
conseguito 5 segni, copiando 
però in Y% le cifre giocate 


(linea 380). 

De Se il numero totale dei se- 
gni non è aumentato si rinvia 
a continuare il calcolo dei 
tentativi possibili (linea 360). 
3. Da ultimo se il numero to- 
tale di segni è aumentato vie- 
ne cambiato il tentativo base 
(linea 370) e si salta all’inizio 
della parte A. 


400 - 600 e 800 - 890 Costituiscono il 


610 - 


blocco A del diagramma di 
flusso di fig. 1. In queste linee 
vengono costruiti in Y% tuttii 
possibili insiemi pensabili di 5 
cifre. Le cifre del tentativo ba- 
se sono contenute nella riga 
O.esima di A %, le cifre sosti- 
tuibili nel vettore C%. 

Dei primi 4 cicli FOR-NEXT 
(indici K, I, J, W) ne vengo- 
no aperti N (N può essere 
compreso tra 1 e 4), in modo 
tale da scrivere N cifre della 
riga O.esima di A% nei pri- 
mi N elementi di Y% in tutti 
i modi possibili come si può 
capire analizzando il listato. 
Poi vengono altri 4 cicli FOR 
(indici T, Z, X, H) di cui ne 
vengono aperti esattamente 
(5-N) in maniera che (5-N) 
cifre scelte tra quelle di C% 
siano scritte nelle caselle ri- 
maste libere di Y% in tutti i 
modi possibili. 

In sostanza vengono sempre 
aperti in totale 5 cicli FOR- 
NEXT nidificati in modo da 
costruire in Y% tutti i possi- 
bili insiemi pensabili di cifre. 
Le 580-600 verificano se l’in- 
sieme Y% è valido per if 
re permutato con ’ausilio 
della subroutine 1200. Se la 
risposta è affermativa si en- 
tra nel blocco B che calcola 
le permutazioni, altrimenti Sl 
salta alla linea 800. Dalla li- 
nea 800 alla 890 i cicli FOR 
aperti in precedenza trovano 
îa base ai valore di NI i loro 
corrispondenti NEXT in or- 
dine corretto. 


790. Queste linee costitui- 
scono il blocco B e sono nidi- 
ficate in quelle illustrate pri- 
ma. Qui si costruiscono nel 


Listato 1. 


I DIMMRC4), #04), CRC4), LEG, PRC AC, 10), EC 19), SN 

PRINT"ERESAMPSTER MINDANAE8": PRINT 

O PRINT'VUOI SPIEGAZIONI (13 0 NOCO)":INPUTD:IFISOTHTNI0O 

PRINT'IOGNUNO PENSA UN NIMEROTI 7 € 
PRINT" NELLA PRIMA POSIZIONE. IO DE 

FRINT"AD 5 

PRINT"LE CIFRE 

5 PRINT"MA AL PG 
) PRINT*NUSCRO. " 

GETYS: IFWI=""THCKSO 
C=9:0=0 tia 0-0 Fi=d 
FORK=QT34 
IA GOSINTARNICD)#105 
FORISOTON-1 IF Da 


PENSA UK 


I 
INT*DO TE IL PRIMO VD," COSUDIOCO 


NTCRNDCOVALO 
=1AFLun) 


MESTI 

NEKTK :C=0- 

C=C+1 ga" 20D) NESVPARIOTISSTPI ILL: 
RINTRELOIT 


FF A=1I03THENIIOA 


00 N=9:FORD=OTO0I FORT-OATO4 
IFLACB>=ITHENOSO 
MESTRE PHR3=D:AN=R+1 
HEKTD 

D D=ER(C) +80): IFIM3OTHENSGO 

FORD=ATOS DI ; ti 

60 IFDA=NTHCHT 
Mist HsDi 


FORI=K+1T06-N: IFN=2THEN4798 
FORI=I+1T07-H IFN=3THEN4GO 
FORU=I+1 


Wa(3)= 


FORT=Q2T0, 
FORZ=T+1T01#1 IFH=STHENSSO 
O FORA=Z+1TON+2: IFN=2THENC4O 


164) 
3 Mi=N 
FORDSOTO4 LA (DIVA (DS NESTI FORDSOTOT GOIUPLIGO: IMPIAMI CDENCID+S% I THENSOG 


LwcoI=2 (E) :S=0 

IFS=ETHEN776 

660 LiC1)=W}CS) :0=0 

=E)THEN760 

=Y}(Q) :R=@ 

710 IFCR=EDORCR=SYORCR=QITHEN7SO 

720 LAC9)=PACR) LAC4)=yn(10-E-5-0-R) 


IFCEMCIO=PISONDCONII 


Il =M1> THENMENTD: 0070250 


DEI IFQSSTHEMESO 
o S=S+1'IFSCSTHENESO 
790 E=E+1IFES5THENGSO 
790. IFF2=1THEHOOO 

200 OESI-1G0TOS20, 830, 040 


LG n u 


S10 NET! 

920 MENTH 

S30 MENTZ 

S40 HENTT 

850 ON4-HIGOTNe7O, 8S0, Can 

SEO METIY 

OPA NENTI 

SS0 MEXTI 

230 MESTI 

309 PRINT PRINT"HON SI PUOPROSCOUIRE A CAUSA DI QUALCHE ER-RORE TRA LE 
218 PRINT'FISPOSTE AI MIEI TENTATIVI, QUE-STE SONO STPTE-" 

920 FORDSOTOL' N$="":FORA=OTO4 4t=4î+RIOHTS(STRICARA, ID). 1) NESTA 

930 PRINTI+1;">"/TABX5) vi, TABC129 CH o, "at ORD" MENTI 

240 PRINT PPINT'LIA PARTITA CU AUNULLA-TA, "S0T01350 (segue) 
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Segue Listato 1. 
1000 PRINT-PRINT-PRINTSCHO NUMERO GIOCHI" INPUTYI fSRLO:D41 D=D+. 
1920 FORD=OTO4 Pi DISINTOA IDIC4-D)> AeA-P7DIB1014-D) -MESTI 


vettore L% tutte le possibili 
permutazioni delle cifre del 


vettore Y%. Non si sono 104) P=0 M=0 FORA=ITO4 FORE=OTO4 
o agile 1050 IFancny PH ExTHEN:090 
usati cicli FOR-NEXT per 1060 IFMSETHEMP-Pe1 SITOLESO 
non superare il massimo dei OMO mari 
. . . ao apo . 1000 bi; TE VERI ma 
cieli nidificabili. La linea 730 108 PRINTIS/TABC AO) .Mi teo" IFPOSTACHRCTURN 
verifica se la permutazione LI2O PRINT'HAI INZOVIMATO Ti'.G0 STHTOTIVI, UO ANCORA USTIRO POP CUI LA " 
calcolata è logicamente com- {130 PRINT"PARTI-TA POTREBBE FISIRE PARI. SMI=! METURI 
i i ; 1220 M1=0 Pi30 A=0 DSC 
patibile con i precedenti Iz10 Pa Pa E] 


C-1 tentativi giocati dal cal- Ino seri MPisfiat SoToiz 3 
. ul na 
colatore. In caso affermativo 1330 she: fFPCSTHEHL2IO 
questa diventa il C.esimo 1503 ESD AHAH 'IFASSTUONIZI 
1250 RETI 


tentativo e si rimanda per ri- 


cominciare alla linea 250. ici rasta 
900 - 940 Viene interrotta la par- 
tita. A questo punto il pro- Dad. iò NESTI 


© PRINT SPINT"IL NIC 
gramma arriva solo dopo 550 PRINT PRINT SRIIT 


avere provato tutti i tentativi 1360 INPUTI:IFD=1THENISO 
ipotizzabili senza averne tro- HELSE 

vato uno logicamente possi- 

bile coi precedenti. Siccome 


i 
TUT"VSDI CIDPO3E MRORACIE Guo03," 


l'algoritmo seguito è un algo- 
ritmo esatto, ciò significa che 
nelle risposte date al calcola- 
tore c’è qualche incompatibi- 
lità e cioè o il giocatore si è 
sbagliato nel darle o ha bara- 
to. Le 920-930 stampano ten- 
tativi e relative risposte per 
permettere il controllo al 
giocatore. 


chiede la mossa del giocato- 
re. Il numero introdotto co- 
me stringa viene scomposto 
in cifre e memorizzato tem- 
poraneamente nel vettore 
P%. Poi vengono calcolati in 
P e M rispettivamente il nu- 
mero di + e di — per con- 
fronto con X%. Se P=5 vie- 
ne settato il flag FI. 


1300 


gio. Effettua i confronti tra 
le cifre contenute in L% e 
quelle contenute nella D.esi- 
ma riga della matrice A%, 
contando i + ed i — nelle va- 
riabili PI ed M1. E analoga 
alla parte 1040-1090. 

- 1370 Sanciscono la fine 
della partita con la parità o 
la vittoria di uno dei 2 con- 


1000 - 1130 Subroutine che ri- 1200 - 1260 Subroutine di conteg- tendenti. I 


è in edicola il nuovo numero di 


UNA RIVISTA 
DEL GRUPPO EDITORIALE JACKSON 


Programmare grafici 
con il TI 99/4A 


Anche con il Texas si 


possono tracciare 
grafici ad alta 
risoluzione 


di Roberto Del Giudice 


la rappresentazione grafica di 
una o più funzioni di una o due 
variabili (cioè del tipo: F(x) e 
F(x,y)), ottenendo una buona riso- 
luzione. 
Il programma utilizza le funzioni 
e le istruzioni del Basic standard, 
risultando perciò piuttosto lento; la 
mancanza della funzione HEX(n), 
che permette di trasformare un nu- 
mero dal formato intero in quello 
equivalente in formato esadecimale 
e delle funzioni AND, OR e NOT 
sono la causa primaria di tale in- 
conveniente. Il programma potreb- 
be risultare ulteriormente più velo- 
ce se si potessero inserire più istru- 
zioni per ogni linea di programma. 


I presente programma permette 


Descrizione del programma 


110-120 Inizializzazione parame- 
tri. 

130 - 160 Ciclo entro il quale vie- 
ne definita la funzione da 
tracciare. I valori X ed Y da 
essa assunti dovranno essere 
compresi tra i seguenti estre- 
mi: 0<X=96 0<Y=80; va- 
lori esterni a tali intervalli 
non vengono elaborati. 

990 - 1050 Inizio della subroutine 
di costruzione della matrice 
A(N,NY) di transcodifica. 

Viene controllato che le coordinate 
del punto da plottare siano 
nell’intervallo consentito, al- 


trimenti ritorna direttamente 
al programma principale. 

1060 - 1080 Trasformazione delle 
coordinate X, Y in 
“coordinate carattere”. 

N = numero del carattere su cui 
operare; NX e NY = coordi- 
nate del pixel da settare al- 
l’interno del carattere N.esi- 
mo. 

1090 - 1130 Operazioni che con- 
sentono di poter fare a meno 
delle funzioni AND e OR. 
In ogni vettore riga della ma- 
trice A(N,NY) si genera la 
maschera del relativo N.esi- 
mo carattere grafico, utiliz- 
zando una rappresentazione 
binaria in cui i pixel settati 
sono rappresentati come 1. 
Vedi esempio in fondo all’ar- 
ticolo. 


1200 - 1460 Subroutine per la tra- 
sformazione della matrice 
A(N,NY) in N stringhe C$ 
nel formato richiesto dalla 
CALL CHAR. Si noti come 
le istruzioni dalla linea 1280 
alla 1380 potrebbero essere 
sostituite, con un conseguen- 
te notevole risparmio di tem- 
po macchina, dalla funzione 
HEXS$(A$) che però non è 
disponibile in Basic stan- 
dard. 


1500 - 1530 Inizio della subrouti- 
ne finale che costruisce il 
diagramma della funzione 
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F(x) o F(x,y) sul video. 

1540 - 1580 Viene “pulito” il vi- 
deo e quindi viene evidenzia- 
ta l’area destinata al grafico 
tramite dei punti equidistan- 
ti. 

1590 - 1610 I punti neri sono 
“trasformati” in punti bian- 
chi. 

1620 Viene cambiato il colore 
dello sfondo in nero. 


Nora Il passo di programma 180 ha 
lo scopo di mantenere il computer 
in elaborazione, evitando così l’im- 
mediata distruzione del grafico, 
una volta eseguito il programma. 


A(6,1)=10001 
A(6,2)=11100 
A(6,3)=0 
A(6,4)=11111111 
A(6,5)=10000011 


A(6,8)=10100111 


Esempio di codifica dei pixel di un 
carattere. 


«PER ACCORCIARE 
I TEMPI» 


inumero dì mes 


GRUPPO EDITORIALE 


JACKSON 


è il seguente: 


100 OPTION BASE 1 
110 DIM A(120,8) 
120 E$=“10000000” 
130 FOR X=0 TO 96 
140 Y=(SIN(X/30)+1)*38 
150 GOSUB 1020 
160 NEXT X 
170 GOSUB 1500 
180 GOTO 180 
990 REM SUBROUTINE COSTRUZIONE MATRICE DI TRANSCODIFICA 

1000 REM 

1010 REM 

1020 IF Y>=80 THEN 1140 

1030 IF Y<0 THEN 1140 

1040 IF X>=96 THEN 1140 

1050 IF X<0 THEN 1140 

1060 N=INT(X/8)+(INT(Y/8)»12+1) 

1070 NX=8-INT(X-INT(X/8)+8) 

1080 NY=8-INT(Y-INT(Y/8)+8) 

1090 A$=STR$(A(N,NY)) 

1095 IF (LEN(A$)-NX+1)<=0 THEN 1120 

1100 IF SEG$(A$,LEN(A$)-NX+1,1)=“1” THEN 1140 

1110 REM 

1120 D$=SEG$(E$,1,NX) 

1130 A(N,NY)=A(N,NY)+VAL(D$) 

1140 RETURN 

1200 REM SUBROUTINE PER LA CREAZIONE DEI CARATTERI GRAFICI 

1210 FORK=1 TO 120 

1220 C$="“" 

1230 FOR J=1 TO 8 

1240 B$=“00" 

1250 IF A(K,J)=0 THEN 1420 

1260 A$=STR$(A(K,J)) 

1270 H=0 

1280 FOR Z=1 TO LEN (A$) 

1290 H=H+VAL(SEG$(A$,Z,1))*2 f (LEN(A$)-2) 

1300 NEXT Z 

1310 B$="" 

1320 A$=“0123456789ABCDEF” 

1330 FOR Z=INT(LOG(H)/LOG(16)) TO 0 STEP -1 

1340 B=INT(H/16 1 Z) 

1350 B$=B$&SEG$(A$,B+1,1) 

1360 H=H-(16 1 Z)»B 

1370 NEXT Z 

1380 REM 

1390 IF LEN(B$)<>1 THEN 1420 

1410 B$="0"”&B$ 

1420 C$=C$&B$ 

1430 NEXT J 

1440 CALL CHAR(32+K,C$) 

1450 NEXT K 

1460 RETURN 

1500 REM SUBROUTINE DI PRESENTAZIONE DEL GRAFICO 

1505 CALL CLEAR 

1510 FORT=33 TO 153 

1520 CALL CHAR(T,“18”) 

1530 NEXT T 

1540 FOR I=1 TO 10 

1550 FOR J=1 TO 12 

1560 CALL VCHAR (17-1,10+J,20+J+1*12) 

1570 NEXT J 

1580 NEXT I 

1590 FOR 1=1 TO 16: CALL COLOR(1,16,1): NEXT | 

1620 CALL SCREEN(2) 

1630 GOSUB 1200 

1640 RETURN 


(Funzione di esempio) 


Con il joystick 
collegato al vostro VIC 
20, questo programma 
vi permette di tracciare 
disegni in alta 
risoluzione 


di Matteo Minischetti 


Picture 


uesto programma permette 
di creare disegni in alta riso- 
luzione tramite il joystick 
che si può collegare al VIC 
20. 
Gira con la memoria base e si 
compone di due parti: 
e listato l: carica in memoria delle 
subroutine in linguaggio macchi- 
na che gestiscono tutte le opera- 


Dart] 


REM ERTLI 
PIE 
FOR. 


POURKE E. 


E PARTE LI 
‘ POKE 51; 


369: 


limit rr 
Sud 


pi a 
Lor] 2 
c8 If ov Ri Ln i sr a A] 


DATA 160,20, 169.,0,1 
DATA 2 RE 
O IATA 
DIRTR D. ih 
x DATA 
A DISTA 
DATA & 


PO DATA 


5 DATA 24, 


S0 DATA 262 
DATA 
DATA 


HEKT: POKE 52.20: POKE 56,28: 
70. 140, 
250,200, 192,2 


zioni grafiche; 
e listato 2: controlla il movimento 

del joystick e lo fa disegnare. 

Il listato 1 va caricato per primo 
e bisogna salvarlo subito su casset- 
ta, altrimenti quando lo si fa girare 
si autocancella per fare posto al li- 
stato 2. 

Dopo aver caricato anche il lista- 
to 2 ed averlo salvato, il video pre- 


[a] 
READ A 


MEL 
10,2 


Fin 


lea 


i 


#10) 37° 


Mio 


r 


’ Mpeg 
«Apps 


Listato 1. Routine di caricamento delle subroutine in linguaggio macchina. 
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senterà il quadrato grafico con al 
centro il cursore che in questo caso 
è un pixel. Muovendo il joystick, ci 
si lascia dietro una linea luminosa, 
che, sfruttata adeguatamente, com- 
pone il disegno. Premendo con- 
temporaneamente al joystick il fi- 
re-button, ci si può muovere senza 
disegnare si possono cancellare i 
pixel indesiderati col solo passag- 
gio del pixel-cursore sopra di essi. 
Se si esce dai bordi del quadrato 
grafico, il pixel-cursore viene ripo- 
sizionato al centro dello schermo. 
Buon divertimento! 


Principali routine del listato 2 


10 - 50 Riempie il vettore JS con 
le possibili posizioni del joy- 
stick. 

60 - 100 Cancella la mappa dei 
punti, disegna i bordi del 
quadrato, pone il pixel- 
cursore al centro. 

110 - 900 In base allo spostamen- 
to del joystick muove il cur- 
sore sullo schermo. 

1000 - 1080 Determina se il joy- 
stick è stato usato. 

2000 - 2020 Se il cursore esce dai 
bordi, viene riposizionato, 
viene stampata la nuova po- 
sizione, se FB è premuto, 
viene cancellato il pixel cor- 
rispondente all’attuale posi- 
zione. MI 


me mami n 


Dara A 


Oz! EUR J50: TU 2 
TETI, T9=WALCOSIDE 


Aa RE 
o 


n CE 


= 
CI 

4 

ca 

E 

ra 

= 

î 


| 


RETURN 


Listato 2. Programma che controlla il movimento del joystick e lo fa disegna- 
re. 


leggete 


VIDEO 


® ® 
GIOChi 
la prima rivista di videogames - computer 
giochi elettronici 


Quattro programmi per 


il Commodore 64 


Ognuno di questi 
programmi illustra una 
particolare 
caratteristica di questo 
potente personal 


di Carlo Sintini 


Ringraziamo la Kiber Italia che ci 
ha permesso la pubblicazione di 
questi programmi 


Compilazione automatica degli 
sprites 


tri pregi, la possibilità di rea- 

lizzare fino ad 8 figure ad alta 
definizione, chiamate sprites, che 
possono essere gestite autonoma- 
mente una dall’altra e permettono, 
per esempio, di ottenere video- 
game assolutamente favolosi. 

Però il programma in Basic è 
piuttosto laborioso, a causa dei 
DATA che devono essere calcolati 
con operazioni semplici ma noiose. 

Questo programma va conside- 
rato come una utility: visualizza un 
reticolato entro il quale, fornendo 
le coordinate opportune, possono 
essere inseriti i punti che costitui- 
scono il disegno dello sprite. 


I 1 Commodore 64 ha, fra gli al- 


L’operatore può cancellare a vo- 
lontà il disegno per eventuali cor- 
rezioni e alla fine, premendo la 
chiocciolina, il Commodore passa 
al calcolo dei DATA. 

Si può scegliere tra due possibili- 
tà: avere il semplice elenco dei 
DATA, o un programma completo 
da battere sulla tastiera (per esem- 
pio per realizzare un gioco). 

Per rendere più comodo e facile 
l’uso del programma ho usato solo 
comandi GET (linee 240, 510, 740, 
990, 1140, 1280, 1370, 1510), in 
modo da eliminare la necessità di 
premere il tasto RETURN dopo 
ogni risposta. Il cursore che lam- 
peggia è fasullo, ed è generato dal- 
la routine 460-580, che contiene 
anche le istruzioni necessarie per 
impedire l'accettazione di dati illo- 
gici. 


Listato 1. Compilazione automatica degli sprites. 


Litbet RIERI LF LE SAREI 
LI Clisi 


sen 
spe 
ose 


ta a REI IE I e i I red A 2) 
asi cai ERI EAST 28,2 dEi ceci DEE E DI E TE di E IE E e A E NERA 
E Pe D4 PO" pela 
La PRI eo CUP LAZ IOHE FAT AOHIR profit 1 st | 
Desk FIRES" pe 
dea PRINI" sb PERSE TE 
pesco PET" ERE 
FREE! e EA E e E AR 
Fr LIE" SIBLS]Be] COFRITOHT RIBEP O NERRIA SS. RA! 
RIHT "3 | lf ES SI n: 4 8 = NIDI g| POS Galbo Por ELI" 
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(segue) 
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Segue Listato 1. 


250 IF0$="S"1HEHFF=1 
A PRANDI IND 645 :B=13 
:1.B 


PIHEES 


si .E PUEESISZ 
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Parole crociate 


È un libero adattamento di un 
programma apparso su una rivista 
inglese, ma di esso si può dire che 
conserva solo l’idea originale. È 
abbastanza ben curato dal punto di 
vista grafico e lo scorrimento è ve- 
locizzato con l’impiego dei GET al 
posto degli INPUT, in modo da 
eliminare la necessità di premere il 
tasto RETURN dopo ogni rispo- 
sta. 
Il programma genera casualmen- 
te un diagramma di parole crocia- 
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te, del tipo senza le caselle nere, 
con le parole scritte lungo le righe, 
le colonne, le diagonali, in ambe- 
due i versi possibili e con le parole 
stesse mascherate da altre lettere 
casuali. 

Poiché le 10 parole che ogni vol- 
ta vengono inserite nel diagramma 
vengono prelevate da 50 vocaboli 
assortiti, il calcolatore può genera- 
re oltre dieci miliardi di diagrammi 
differenti (trascurando i modi di- 
versi in cui ciascuna lista può esse- 
re utilizzata per la formazione del 
diagramma stesso). 
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All’inizio del gioco, insieme al 
diagramma vengono visualizzati a 
parte i 10 vocaboli da ritrovare, e 
l'operatore deve fissare il tempo 
entro il quale presume di riuscire a 
finire il gioco. 

Ogni parola ritrovata viene scrit- 
ta in reverse nel diagramma, e can- 
cellata dall’elenco a parte. Se scade 
il tempo massimo che era stato sta- 
bilito, vengono visualizzate in re- 
verse anche le altre parole non ri- 
trovate, e... si riparte per un altro 
gioco. 
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Agenda telefonica 


I calcolatori della Commodore 
hanno tutti una particolare prero- 
gativa: quando il cursore si trova 
su una linea dello schermo (nuova 
o modificata) e si preme il tasto 
RETURN, la linea di programma 
passa dalla memoria di schermo al- 
la memoria centrale. 

Questo meccanismo può essere 
sfruttato vantaggiosamente in molti 
modi. Per esempio, come in questo 
programma, per inserire automati- 
camente nel programma stesso 
nuove linee contenenti degli indi- 
rizzi sotto forma di DATA. 

Normalmente i programmi di 
questo tipo adoperano i file per im- 
magazzinare i dati, ma i file su cas- 
setta (la maggior parte degli utenti 
del Commodore 64 si serve di regi- 
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stratore a nastro) sono lunghi e 

macchinosi. 

La ricerca degli indirizzi con 
questo programma è invece velo- 
cissima e pratica. Naturalmente, 
dopo ogni aggiornamento degli in- 
dirizzi, il programma deve essere 
nuovamente registrato con le mo- 
difiche. La chiave del meccanismo 
risiede nella linea 730. 

Nelle linee 700, 710, 720 vengo- 
no stampate sullo schermo: 

e una nuova linea di programma 
contenente il nuovo indirizzo; 

e la modifica della linea 1000 che 
contiene il numero N dell’ultima 
linea del programma; 

e il comando diretto di saltare alla 
linea 540. 

Finalmente nella linea 730 ven- 
gono “forzati” automaticamente 
tre RETURN successivi, e il pro- 


e THIPUCOI 


x 


gramma si è allungato con una 
nuova linea contenente il nuovo in- 
dirizzo. 

Per la ricerca del nome potete 
anche battere le prime due o tre 
lettere: verranno visualizzati tutti i 
nomi che iniziano con quelle lette- 
re 
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Sistemi ridotti per il Totocalcio 


Immaginiamo di stabilire un pro- 
nostico sulla schedina del Totocal- 
cio, comprendente un certo nume- 
ro di partite fisse, di doppie e di 
triple. Per avere la sicurezza di rea- 
lizzare il 13 dovremmo riempire un 
certo numero (molto elevato) di 
colonne, per formare il cosiddetto 
“sistema integrale”. 

E però possibile eliminare molte 
colonne in modo che le rimanenti, 
che costituiscono il “sistema 
ridotto”, diano al concorrente la 
certezza di realizzare almeno un 
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12, senza perdere la possibilità di 
ottenere anche il 13. 

Si chiama rapporto di riduzione 
di un sistema ridotto, il rapporto 
tra il numero di colonne del siste- 
ma integrale e il numero di colon- 
ne del sistema ridotto. Se per 
esempio il rapporto di riduzione è 
9, significa che ogni nove colonne 
del sistema integrale ne è stata 
conservata una sola, e le altre sono 
state eliminate. 

Questo programma permette di 
ottenere automaticamente tutte le 
colonne che costituiscono il sistema 
ridotto. 

L’operatore imposta il suo pro- 
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nostico e il calcolatore elabora il 
numero di colonne del sistema in- 
tegrale, il suo costo e, scegliendo 
tra più strategie, quale sistema ri- 
dotto conviene sviluppare. 

Calcola anche il numero di co- 
lonne del sistema ridotto, il suo co- 
sto e il risparmio che consente di 
realizzare rispetto al sistema inte- 
grale. Inoltre calcola il rapporto di 
riduzione e la probabilità che insie- 
me al 12 si possa ottenere anche il 
13. Infine vengono visualizzate tut- 
te le colonne del sistema ridotto, 
pronte per essere copiate sulle 
schedine a ricalc 
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SHENI=T41 
SORESSTHEMPRINT! <= 
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SC IT ZE ; PRINI"TLO SVILUPPO COMPLETO DEL SISTENA RI-" 
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SONO"T' TEIRLE"D" D0PPIECE" 


IFT=ATHEH ez: 
TFT= 18400 STHEHI i 
IFT=1THEHSE=I HT k E) 
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IFT 
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SSA PRINTUCE fi! W" CELOIHE -PHET fio 
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Pie IH "TEHENDO LA 
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no TED: ATHENGOSIB1598 

IA IFTR2STHEHY""S1 

GEE FORLSITOSR:P$="' 
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DA LD E BT LG 
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” 8 4 der A AMDICHE 1 a 
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I 
ti 
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da! PU |EHPP8E 1) TUO 
45201 "AHOOE=" 1" THEHPF$ std GOTTO d LIA 
pap PDS" THEHEP:S00I ; SGOTOLh LE 
234 a dtre= "EU HEHPP=*a/ pet GO DO pd 1 
I98 IF: 4, pas" LANDO 2 TI" HMISE= "E IT HEHPP* Ts GENTI ep a 
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Segua Listato 4. 
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TH 5 LES 415 GOTTO LASA 
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(segue) 


Segue Listato 4. 
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L'unico mass-media 


di strumenti musicali 
e audio-registrazione. 


QUANDO JACKSON NON È SOLO ELETTRONICA E INFORMATICA. 


fà GRUPPO 
d EDITORIALE 


> JACKSON 


Quando il computer para il linguaggio delle immagini 


La computer grafica rappresenta un campo di progettazione in architettura a quella in 
applicazione dell'informatica relativamente elettronica e in meccanica; dalla mappazione 
nuovo, ma suscettibile di imprevedibili alla manipolazione tridimensionale delle 
sviluppi. Questo volume, nato in immagini... Realizzata in modo da permettere 
collaborazione con alcune delle più un rapido, ma esauriente approccio 
specializzate istituzioni del settore, esamina all'argomento, l'opera si rivolge a quanti 

tutte le possibilità di questa scienza nuova e (lettori-utenti) siano alla ricerca dei necessari 
affascinante: dall'animazione cinematografica chiarimenti per una corretta e proficua 

e televisiva ai businnes graphics; dalla utilizzazione delle tecniche di Computer grafica. 


Mauro Salvemini 


COMPUTER 
GRAFICA 


176 pagine. Lire 29.000 
Codice 519 P 


GRUPPO 
EDITORIALE 
JACKSON 


Per ordinare il volume utilizzare 
l'apposito tagliando inserito in fondo alla rivista 
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8080 
HARDWARE E SOFTWARE 


8080A/8085 8080A/8085: 


PROGRAMMAZIONE IN LINGUAGGIO ASSEMBLY PROGRAMMAZIONE î 


Il libro esamina il linguaggio assembly. Spiega la programmazione in IN LINGUAGGIO ASS 
linguaggio assembly, descrive le funzioni di assembler e le istruzioni si cs | il libro che I ni 
ri 


assembly, tratta i concetti di sviluppo del software di base. À è 
Esamina esempi di programmazione da un semplice ciclo di famoso Bugbook VI, completa la trattazione nre nd ue 
ugboo! 


caricamento della memoria a un completo progetto di " 
programma. Sommario 
Otfre, gli strumenti di debugging, la relativa ; Cosa vuol dire interfacciare - Impulsi di selezione 
procedura di base, i tipi più comuni di errori. CX 2 dispositivo - Il set di istruzioni 8080A - Le 
Fornisce, inoltre, esempi di programmi pratici. ) , tecniche di bus dati nell'uso di dispositivi 
Sommario ) i tri-state - Introduzione alle tecniche di 
Introduzione alla programmazione in linguaggio (70) tramite l'accumulatore - Introduzione 
assembly - Assemblatori - Set d'istruzioni per il alle tecniche di Ingresso/Uscita memory- 
linguaggio assembly - Semplici programmi - mapped - L'ingresso/uscita del microcomputer: 
Semplici cicli di programma - Dati codificati come alcuni esempi - Flag e 
caratteri - Conversione del codice - Problemi FATTE: interruzioni. 
aritmetici - Tabelle e liste - Subroutine - Ingresso/ ] 3 Formato 15x21 
Uscita - Interrupt - Definizione del problema e progetto a Pago +95 Codice 006A 
del programma - Debugging e testing - pr ai i PIEZZO L ce UV 
Documentazione e riprogetto - IL BUGBOOK Ili 
Progetto campione. f Interfacciamento e programmazione 
Pagg. 490 Formato 14,5 x 21 del microcomputer 8080 


Prezzo L. 27.500 Codice 323P Ò ata It libro verte su quattro punti fondamentali 


Cate, li dell'interfacciamento di microcomputer: le 

ESPERIMENTI CON TTL E 8080A VOL. î r 0): : generazioni degli impulsi di selezione 
Senza alcuna particolare esperienza in ea, dispositivo, le uscite dei microcomputer, la 
elettronica il libro, l'edizione riveduta e gestione d'interrupt ele associate tecniche 
corretta del famoso Bugbook V, insegna software di I/O nell’ambito di un sistema a 
come programmare un microcomputer, come microprocessore basato sull'8080 
interfacciarlo verso dispositivi esterni e Sommario 
come questi dispositivi operano da un punto Cosa è un microcomputer? - Un piccolo 
di vista digitale. - ; microcomputer basato sull'8080 - 
x Un'introduzione alla programmazione dei 

microcomputer - Come si genera un 
impulso di selezione dispositivo - Cicli 

di clock e loop di timing - Generazione 
delle informazioni di stato - Input/Outpu 
del microcomputer - Subroutine, interrupt. 
flag esterni e stack - Riferimenti - Set 
d'istruzione dell'8080 

Sommario del set di istruzione dell'8080 


Sommario 

Codici digitali - Introduzione alla 

programmazione dei microcomputer - 

Alcune istruzioni del microcomputer 8080 

- Il microcomputer MMD-1 - Alcuni 

semplici programmi per il microcomputer 

8080 - Registri e istruzioni relative ai registri 

- Porte logiche e tabelle della verità - Istruzioni. 

logiche - Introduzione al breadboarding - x nà i 

Circuiti integrati - Flip-flop e latch - Sommario del set di istruzione dell'8080 

Decodificatori - Contatori - Gating di segnali ; Sa (Intel Corp.) 

digitali - Multivibratori monostabili e astabili. No” ì, Pagg. 417 Formato 

Pagg. 490 Formato 15 x 21 = Prezzo L. 19.000 Codice 003A 

Prezzo L. 22.000 Codice 005A 
PROGRAMMAZIONE DELL'8080 

TEA E PROGETTAZIONE LOGICA 


UN EDITOR ASSEMBLEA RESIDENTE Ka eni ty 1 Il libro descrive l'implementazione della 
PER L'8080/8085 ‘ e di Mai Phra) logica sequenziale e combinatoria con l'uso 


Il programma TEA, il cui listing è riportato nell'ultima | del linguaggio assembly all'interno di un 
Appendice del libro, una volta caricato su un supporto di sistema a microcomputer basato sull'8080 

memoria, dà la possibilità di scrivere e modificare Un capitolo, poi contiene il set completo 
programmi sorgente scritti in assembler secondo i codici di istruzioni dell'8080 

mnemonici di questi due microprbcessori. n Sommario 
Sommario Introduzione - Linguaggio assembly e logica 
Modalità d'impiego dell'editor - Modalità d'impiego dell'assembler' simulazione diretta della logica digitale 
- Convenzioni relative ai dispositivi di I/O - Formato della banda per - Un semplice programma - Prospettiva del 
il programma TEA - Modifica del comando Z - Aggiunta a TEA diun programmatore - Set di istruzioni - Alcune subroutine 
comando speciale - impiegate comunemente - Codici di caratteri ASCII 

Elenco riassuntivo dei comandi di TEA - Listing di TEA. Formato 14,5.x 21 


Pagg. 252 Formato 15 x 21 ; Pagg 296 Codice 325P 
Prezzo L. 14.000 Codice 322P Prezzo L 19.000 
IL BUGBOOK VII 
DBUG Il libro fa capire come un sistema a microprocessore si intertacci 
: al mondo esterno, e con particolare riguardo all'interftacciamento 
Uh programma IRIAFPIElE paria messa a punto delsotincra SO x x Vr di convertitori, sia digitali-analogici che analogici-digitali, con 
ll libro presenta il programma DBUG che permette di inserire e cambiare i passi di microelaboratori basati su 8080, 8080A, 8085 e Z80. 
programma, procede attraverso una istruzione completa e non passo passo, è in grado di Vengono presentati, inoltre molti esempi di interfacciamento, completi di schemi elettrici 
perforare e leggere un nastro di carta. Nelle appendici, poi sono,riportati due listing uno e listing dei programmi 
in codice ottale che contiene subroutine ottali di I/O, l'altro inebdice esadecimale. i 


Sommario 

Un'introduzione alla'programmazione - DBUG: 

Un'introduzione - I comandi di DBUG - Come si legge e si perfora un nastro - Come si 
esegue un programma - L'uso del breakpoint - La tecnica del passo passo - Che cosa non 
fare con DBUG - Salti, richiami, restart e rientri - Le operazioni relative allo stack - Come 
dare inizio al programma DBUG nelle memorie di lettura scrittura - Come dare inizio al 
programma DBUG in PROM - Come cambiare DBUG - Subroutine generali e 
disposizione dell'utente - Format della banda per DBUG - Sommario del set di istruzioni - Formato 15x21 
Riassunto dei comandi - Listing ottale di DBUG - Listing esadecimale di DBUG. Pagg. 270 Codice 007A 


Pagg. 106 Formato 15x21 Prezzo L 17.000 


Prezzo L. 7.000 Codice 313P P__—S 
(è GRUPPO EDITORIALE JACKSON 
“ap Divisione Libri 


Sommario 

Interfacciamento dei convertitori da digitale ad analogico - Interfacciamento con 

convertitori analogico-digitali - Convertitori analogico digitali a doppia pendenza e 
pannelli di misura digitali - Miscellanea di tecniche di conversione - Circuiti di sample- 
and-hold e dispositivi multiplexer - ...dei bit, schede e scatole nere - Esperimenti con 
convertitori digitali-analogici e analogico- digitali - Specifiche dei convertitori A/D e D/A - 
Data sheets di una selezione di prodotti, convertitori 


Gestire file con il PET/CBM 


Facciamo un po’ di 
luce sui misteri della 
gestione file del 
PET/CBM 


di Stefano De Monte 


I | n problema che spesso assil- 

la un possessore di personal 
vare programmi e dati su disco ma- 
gnetico. 

Per fare ciò esistono delle istru- 
zioni particolari da dare all’unità 
magnetica tramite l’interprete Ba- 
sic: per il primo caso quelle cono- 
sciute sono LOAD (per caricare da 
disco) e SAVE (per conservare su 
disco). Tuttavia se volete conserva- 
re dei dati (le vostre spese, gli in- 
cassi ecc.) queste due istruzioni 
non basteranno. Scopo di questo 
articolo sarà quello di illustrare il 
funzionamento di un’unità a disco 
e dei principali comandi a cui que- 
sta unità obbedisce. 


I comandi del Basic 3.0 


Una volta inserito il disco, per 
usare l’unità magnetica bisognerà 
che il nostro sistema si metta in co- 
municazione con la periferica desi- 
derata: a ciò serve (ad esempio per 
la configurazione PET 3032, unità 
3040) l’istruzione OPEN 1,8,15 che 
apre il file logico di comunicazione 
(1) verso l’unità floppy (8) e che ri- 
serva questo file per dare comandi 
o segnalare errori (15). Da notare 
che, una volta data questa istruzio- 
ne nel corso di un programma, non 
ci sarà più bisogno di ripeterla, pe- 
na la segnalazione di “FILE OPEN 


ERROR” che, automaticamente, 
chiuderà il file. 

Se il disco inserito sarà nuovo 
dovremo formattarlo per mezzo 
dell’istruzione 
PRINT#1,“N dr:dfn,xx” 
dove dr sta per il drive (0 o 1), dfn 
è il nome del disco e xx è il suo 
numero di identificazione. Atten- 
zione però a non formattare un di- 
sco contenente già dati o program- 
mi: cancellereste tutto! (Infatti la 
N sta per NEW.) Invece se il no- 
stro disco è già stato usato altre 
volte bisognerà inizializzarlo: fare- 
mo così conoscere all’unità floppy i 
contenuti del disco. 

L’istruzione è PRINT#1 “I dr”, 
dove dr è il numero del drive in cui 
è contenuto il disco. 

A questo punto possiamo final- 
mente trasferire dei dati (numeri o 
stringhe) sul disco magnetico. Ma, 
per poterlo fare, bisogna prima ri- 
servare una parte di memoria del 
disco nella quale mettere i nostri 
dati; inoltre a questa parte dobbia- 
mo dare un nome che ci permetta 
di individuarla ogni qualvolta vo- 
gliamo, per recuperare i dati conte- 
nuti in essa. 

L’istruzione completa è OPEN 
fc,8,sa,“dr:fn,ft,mode” (ma su un 
manuale in italiano è riportato solo 
OPEN fc,8,sa e ciò è errato!). Il 
fc è il file logico riservato dall’unità 
per comunicare; 8 è il codice del- 
l’unità floppy; sa è il “secondary 
address” (indirizzo secondario); dr 
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è il numero del drive; ft è il tipo di 
file (Sequential, User, Relative, 
Program); il mode può essere Read 
(lettura) o Write (scrittura). Biso- 
gna cioè dire all’unità 
“intelligente” floppy attraverso 
quale file comunicare, su quale dri- 
ve è diretta la comunicazione, il 
nome ed il tipo di file che interessa 
ed, infine, se si vuol leggere o scri- 
vere su di esso. 

Per trascrivere un dato (numero 
A o stringa A) su di un file, prece- 
dentemente aperto e predisposto 
per la scrittura, l’istruzione è 
PRINT#fc, A. Se invece vogliamo 
scrivere una serie di dati, le cose si 
complicano: bisognerà separare i 
dati (record) gli uni dagli altri, al- 
trimenti scriveremmo sul disco un 
dato unico (non 1; 2;3 ma 123). 
Per separarli il PET usa il 
CHR$(13) che corrisponde ad un 
carriage return. 

La forma finale sarà 


PRINT#fc,A;CHR$(13);B; 
CHR(13);... 


Abbiamo così inserito una serie 
di dati con un certo ordine in un 
certo file, ma è importante notare 
che ora il dato immesso (numero o 
stringa) non possiede più un nome 
(A o A$) ma la sua identificazione 
dipende solo dall’ordine in cui i va- 
ri dati vengono scritti nel file. Que- 
sto è essenziale per sapere come 
“recuperare” i dati; ma ciò si potrà 
fare solo dopo aver chiuso il file 
con un CLOSE fc ed averlo riaper- 
to specificando che ora si vuol leg- 
gere su quel file (selezionando 
cioè il “mode” dell’OPEN). A que- 
sto punto basterà dare un 
INPUT#fc,A,B,... ed al primo da- 
to contenuto nel disco verrà asse- 
gnata la variabile A, al secondo la 
variabile B e così via (per le strin- 
ghe useremo A$,B$ ecc.). Ancora 
una volta, prima di procedere col 
programma, dobbiamo chiudere il 
file con un CLOSE fe. i 

Da notare che, con queste istru- 
zioni, una volta scritto nel file ed 
averlo chiuso, non è possibile ag- 
giungervi altro ma, per aggirare 
l'ostacolo, ci si può servire dell’o- 
perazione di concatenamento di fi- 
le (tabella 1). 
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. PRINT#1,“$ dr:fn” 


Basic 3.0 Basic 4.0 


SAVE “dr:fn”,8 DSAVE, “fn”,D dr 
LOAD “dr:fn”,8 DLOAD “fn”,D dr 
OPEN 1,8,15 ?DS 

PRINT#1,“I dr” PRINT#1,“I dr” 
SCRATCH“fn”,D dr 
COPY Dsdr TO Dddr 
CONCAT Ddr, “sfn” TO 


a cui seguono: 
inizializza 
cancella 
copia il disco 
concatenamento 


PRINT#1,“C ddr=sdr” 

PRINT#1,C dr:dfn= 
dr:sfn 1,dr:sfn 2,...” 

PRINT#1,“N dr:dnome, 


” 


Xx 


Ddr,“dfn” di file 
HEADER“nome”,D dr,I xx formatta il disco 


dfn=al file 

sa=indirizzo secondario 
fc=file di comunicazione 
ft=tipo di file 


dr=numero drive 
fn=nome file 
sdr=dal drive 0 o 1 
ddr=al drive 001 
sfn=dal file 


OPEN fc,8,sa“dr:fn,ft,mode” 
OPEN 3,8,3 “0:PROVA,S,W” 


in pratica: 


NOTA: I caratteri in maiuscolo sono obbligatori, quelli in minuscolo debbono 
essere sostituiti con dati dal programmatore. 


Tabella 1. 


Listato 1. /l programma “Gestione grafico + pellicole”. 


ARENA ETERO Re ne 
52 REMGE TONE FGRAF [NU PELLICOLE 
do PRG DMS RE EE RR e i DE EE Re E e I 


(20) 
‘RINTIAB 140) "PROLE DURA PELLICOLE" 

; CINTTAB (50) "D QUOIN DRIVE 0":FORE = 110 Lio sa NEXT 
Sio REM IMNIZIALIZZIA DISLO 

BI OPENI.G. 15 
Se PRINTRI. "fo" 
RS FRIMNT CHs ida) 


PO PRINTTABISOY"="RURINI LE PRIMO 2 L'ATTERE* 

SU PRINMNTIAR 50" EL MESE 5 Malato (ef 

95 INPUIG®: {31 

GS BEMPOLTTIINE LCONTEUH it MEGE 

10G 0AP1A bE.,bE. Ma, de i GEL AS, SE LOTO, DI 

Lio RPALGSE 1. 

IO AF 8 (fo sbeG0 iS 

130 IF 12THENI=T4 1: G0T0115D 

44 PRI "RISCRIVI" FORUUS= TOGO: NEXTUO: RESTURE : GOTUSS 
LS TNFUI "NUMERO DEL GIORNO" sN 


160 PRINT"SE 1MMETTI DATI PREMI IL“ 

i1el PRINT 

T'FER IL RESUCONTO 2" 

EOTOARO 

175 PRINTCHHS5 (147) s REMO i MMiaboez i INAMENTO DATI 
180 FRINTTAB (10) "PELLICOLE SECONDO IL FORMATO" 
190 INFUT "FORMS TO dio" R 

195 INPUT "FORMATO 176"3£C 

2000 LIMPUT "FUEMS TO 1IiferD 

Q10 IMPUT"'DIAPOSITIVE"se 

=" "Rls" s W'rB5&=" 6, 

21 $=B1$+0G£ +E0$ n CH6=B1+G+ [CT 

0 PRINT "FRING OPERAZIONE DEL MESE ?_ S#N" 
so INEFLUTEF 

Sol PRINT:FRINT:FRINT 

253 IMPUT"CONFERMA S“N"35L5%$ 
IFLAS="N"THENRESTORE GOTTO: 
IFFP9="G“THENZ=i: BOTOTZO 


(segue) 


Il programma 


A questo punto, dopo aver espo- 
sto brevemente le principali istru- 
zioni Basic, sarà più semplice capi- 
re il meccanismo del programma 
ed apportarvi modifiche per le vo- 
stre esigenze. 

Questo è nato per calcolare 
quante pellicole un laboratorio fo- 
tografico sviluppa in un mese; que- 
ste pellicole vengono suddivise se- 
condo il tipo con un certo codice 
(110, 126, 135, DIA) ed ogni gior- 
no viene inserita nel computer la 
quantità trattata. Il programma si 
compone di 3 parti: (1) immissione 
dei dati e stampa su disco: (2) reso- 
conto con raccolta dati da disco; 
(3) istogramma mensile (su stam- 
pante a 120 colonne). Le righe fino 
alla 256 servono per raccogliere i 
dati necessari per il programma (la 
data con una sua routine di con- 
trollo, la quantità di pellicole) e ad 
inizializzare il disco. ì 

Il problema a questo punto è di 
sapere quante operazioni di scrittu- 
ra abbiamo fatto in un mese. — 

Se questa è la prima allora viene 
creato (320-330) un nuovo file 
(identificato con le prime due iette- 
re del mese selezionato) ed in esso 
viene inserito il numero 1 quale 
prima operazione del mese: crela- 
mo un file contatore. | 

Se invece abbiamo già eseguito 
una o più operazioni di input nel 
mese selezionato, il programma va 
a leggere il contenuto del file con- 
tatore (259-260) (cioè il numero di 
operazioni eseguite nel mese), can- 
cella il file (290), incrementa di 
un’unità il dato letto ed infine ri- 
crea il file contatore (con lo stesso 
nome) immettendovi il dato incre- 
mentato. Non resta quindi che 
stampare la nostra serie di dati 
(380) in un file chiamato con le pri- 
me due lettere del mese più il nu- 
mero progressivo di operazione 
(contenuto nel file contatore). 

Così per esempio, dopo alcune 
operazioni in gennaio, avremo nel 
disco i file: GE (contatore); GE; 
GE2; GE3;... 

Il nome del file, l'operazione che 
facciamo su esso (mode) e le altre 
informazioni per operare su questo 
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POE 
ZO 
ZOO 
265 
220 
220 


290 


REM FILE CONTATURE 
PRINT:FRINT:FRINT'OFERAZ? ONE 
PPENSTITS, EE 

INFPUTHSE, 2 

CLOSES 

L=Z+1 

LES="S0Ot "+6% 

FRINT#1,CE$ 

URENS.9 TRI G1E 

FRINTH#A,Z 


IN CORSO" 


340 CLOSE 3: U0= 1 
350 DIMSU#$ (50) 
A51 REMSTAMFA DATI SU DISCO 
360 SU$(Z)=BE1$+(5$+STF$(2)+B2%$ 
370 QOPEN2Z.,8,2,5US$(Z) 
380 PFPRINT#2, 8: CHRs (13) Cs CHFR$ (13) Ds CHESS (13) Fa CHRS (15) 5 N 
790 CLOSES 
400 PRINT"FINE OPERAZIONI ":FRINT:5PRINT 
410 INFUT"RESOCONTO ? S/N"R% 
420 IFR$="N" THENRUN 
450 FRINT CHR$ (147) sFRINTTAB(10) "KESOCUNTO":PRINT#1. "IO" 
460 INFUT“"MESE RICHIESTO & DUE LETTERE: MAGGIO=MG";6G% 
470 Z=09:B1$="0Ot":B2s=".S.W"ra3s=",5,R" 
471 C26=BR1$+6G6$+B3%$ 
490 OFENZ,8, 3,02% 
490 INFUT#S, Z 
492 DIMB(5O): DIMC (50) : DIMD (50) » DIMF (50) : DIPN (50) 
395 CLOSEZ 
496 IFOO=160T0500 
497 DIMSIl$ (50) 
499 FEM RACCOGLIE DADI DA DISCO 
500 FORI1I=1TO7 
510 SU$ (11)=H1%+5$+51R$11\+BEZ> 
520 OFEN®,.8,2,SU$ (11) 
SA0 INFPUT#®,B(11) Gill SPUTI ORIO ATI 
540 CLOSER 
S50 NEXTII1 
600 REMROUTINE STAMFA 
605 OPEN4, 5 
5.19 FRINTTABI:O) "GRAFICO SEUONDI) FORMA mi ':FPRINT 
SZ0 FRINT"SELEZIONARE Il FORMATO DESIDERATO": FRINT 
630 FRINT'IL1O=13 126=10: 13S=3:DIA=4" 
6055 FRINT:FRINT'"'TOTAL I=S:FIME STAMP&A=9" 
676 LF IUSOTHENDIME 15%) 
640 [NFUTT:FRINT:FRINT "3 [GMP& IN CORSO": [= 
S42 [IFT=SGUTOZOO 
odi LE T=9# FHENCLU:5E 4% RUM 
444 Ubs="FURMATO"#+S Es. ta 
45 PRINTRI. LI 
a FORZISITOZ 
660 IFT=1THEMP © 21 =E to 
60, TE TS=ETHENE< EL ro 10 
Seb IF F= STHENE 2 1)=DiU7L: 
69% IF F=4THENE «Zi .\=3F. 200 
Pi) FORISITORGCITI 
“10 FRINT#4, © "3 NEX [3] 
720) FRINTRA:FEINI#9.paZio Mit 
iO MEXT7I 
50 PELINT UHPS (147: " , LA 
2001 Zi=urd=u "USL surs0iGslu 
2602 DIML 6503: DINH 0) 
Cons FORLE=i TZ 
L:'LB)=B (LR +C LF poi 


NE: TLF 
FRINTERI. "TAM j 


di x io liufifiat IbbHI" 
FOFZI=ITO? 


2035 H(Z1I=L(Z117% 


2044 


Y FORJZITOHi(Z1> 


2050) PRINTR4," "3 3NERI 


2060 FRINT#4:FRINTR4.L_ (71 


NUZII 


ZO70 NEXTZI 
2080 FRIMNT CHRB(147)::G0T04810 


(segue) 


vengono costruite come somme di 
stringhe nelle righe 220 e 360. 

Per il resoconto il programma, 
dopo aver richiesto il mese deside- 
rato, va a leggere nel file contatore 
il numero Z di operazioni fatte 
(480-490), quindi richiede i Z file 
con il nome: MEse richiesto 1; ...; 
MEse richiesto Z, ne legge i conte- 
nuti (500-550) e ad ogni dato asse- 
gna una variabile indicizzata (ME 
= le prime due lettere del mese). 

Non resta ora che utilizzare i da- 
ti per disegnare un istogramma con 
la stampante. Si può scegliere un 
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1999 END: REM SDM 


Suoi FORLI =1 ag: PRINT" MEZ I3PRAIDI 
GOLO FORLL=1 TOLB: FPREINTTAR 380 "E" a NEXT 
SX FOPFLL= SH MAS TEPS 4A PRINSVABRILIY "#" 


PRINT CHRS (145) i CHR$ (145) : NEXT 


5050 FORLU=1 Ts PRINT"#"- 


PRINT CHESS CL4SGO) 5 CHF (1450) 3 CHR$ (145) «NEXT 


Si40 RE TR 


formato singolo di pellicole da vi- 
sualizzare e verrà così fornita, nu- 
mericamente e graficamente, gior- 
no per giorno la quantità sviluppa- 
ta nel mese richiesto; oppure con 


\A 


lo stesso criterio verrà fornita la 
somma totale di pellicole trattate 
ogni giorno nell’arco di un mese. II 


Finalmente una rivista 
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Scrive, suona, gioca, entusiasma '. 


Gaetano Marano 


PER 


E ZX:8O CON NUOVA ROM + HARDWARE 


Per le sue qualità e il suo modestissimo prezzo lo ZX 81 della 
Sinclair è il computer più venduto nel mondo. 
Oggi, sempre con una modestissima spesa, si può imparare a 
‘. Sfruttare questo eccezionale strumento al limite delle sue 
capacità. Basta scorrere questo libro per scoprire quante cose 
lo ZX 81 può fare con l'aggiunta di alcuni semplici ed 
economici componenti. Ad esempio, tramite un semplice 
circuito musicale può riprodurre 50 note su 4 ottave e, sempre 
grazie a una modifica hardware da poche migliaia di lire, lo 
ZX 81 diventa anche l'unico computer in grado di conferire 
‘effetti sonori ai giochi inseriti tra i suoi programmi. Ma non è 
tutto. Un'altra novità di quest'opera, preziosa anche per chi ) 
possiede lo ZX 80 con ROM, è il regalo di alcune tastiere 
disegnate da sovrapporre a quella sensitiva dell'apparecchio, 
per ricavarne altre, speciali funzioni. 
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Per ordinare il volume 


utilizzare l'apposito tagliando 


inserito infondo alla rivista 


mus mm £ 
»i un nun NE SHE 
ma sali 


Archivio scacchistico 
per TI 99/4A 


Con questo 
programma potete 
memorizzare su nastro 
le partite che più vi 
interessano, 
rivedendole a vostro 
piacere 


di Sergio Borsani 


on molto tempo fa lessi in 
Ne: rivista che in un questio- 
nario proposto ai candidati 
per un corso di programmazione, 


tra le altre domande, veniva chie- 


sto se sapevano giocare a scacchi. 
Come è risaputo questo gioco pre- 
suppone in chi lo pratica capacità 
di analisi e di concentrarsi a lungo 
su un problema. Dalle premesse si 
può arguire che anch’io sono un 
giocatore di scacchi, forse al livello 
della terza categoria, anche se non 
ho mai partecipato ad un torneo di 
qualificazione. Da molto tempo 
raccolgo ritagli di riviste dove sono 
riportate partite di scacchi e le va- 
do ordinando in un piccolo archi- 
vio. Dall’idea di computerizzare le 
informazioni raccolte è nato questo 
primo programma che, senza ec- 
cessive velleità, assolve in modo 
semplice e piacevole al suo compi- 
to. 

Il programma è scritto in TI Ba- 
sic e necessita del registratore co- 
me memoria di massa per la crea- 
zione di un file, cioè è richiesta la 
sola configurazione base. 

Si distinguono due sezioni princi- 
pali. Le considereremo separata- 
mente. 

La prima parte viene usata per 
memorizzare una partita. Selezio- 
nato il numero 1. appare la scritta 
REGISTRARE UNA PARTITA, 
e vengono chiesti in input una serie 
di dati: nome del giocatore con il 
bianco, nome del giocatore con il 


nero, luogo e data ed infine il tipo 
di apertura. Luogo e data formano 
un’unica stringa, pertanto non de- 
vono essere separati da una virgo- 
la. Tale segno serve, infatti, a se- 
parare le variabili in input. Al ter- 
mine di ogni dato premete EN- 
TER. 

Tutti questi dati vanno a formare 
il primo record del file. Poiché nel- 
la OPEN non è stata specificata la 
lunghezza del record, il suo valore 
di default è di 64 caratteri e biso- 
gnerà stare attenti a non superare 
tale limite. La ragione per cui più 
variabili vengono riunite a formare 
un unico record è che si può sfrut- 
tare meglio la memoria di massa e 
rendere inferiori i tempi di regi- 
strazione e di caricamento. Se 
creiamo un record con un solo no- 
me, ad es. Rossi, il computer com- 
pleterà il record, con degli spazi in 
formato DISPLAY o con degli zeri 
binari in formato INTERNAL, fi- 
no a fargli raggiungere la lunghez- 
za minima di 64 caratteri. Inoltre il 
computer, tra un record e l’altro, 
crea un gap, cioè uno spazio privo 
di registrazione; così, tra una sosta 
e l’altra, si dà modo al nastro di 
raggiungere l’adeguata velocità di 
registrazione. Insomma, se non 
fossero riuniti in modo ottimale, i 
dati nella memoria potrebbero oc- 
cupare uno spazio anche 10 volte 
maggiore, allungando conseguente- 
mente anche i tempi di utilizzazio- 
ne. 
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I dati che costituiscono la nota- 
zione delle mosse hanno una lun- 
ghezza fissa di 12 caratteri, 6 per la 
mossa del bianco e 6 per il nero. 
Tale notazione, pur essendo abba- 
stanza aderente a quella comune- 
mente usata, presenta rispetto ad 
essa qualche differenza. Il primo 
carattere rappresenta il pezzo che 
viene mosso; questo dato non ha 
alcuna influenza nell’elaborazione 
tuttavia deve essere presente altri- 
menti si altera la lunghezza della 
stringa (uno spazio all’interno di 
una stringa è calcolato come un ca- 
rattere mentre se è posto all’inizio 
no). Ad esempio, la mossa “e4” si 
deve trascrivere PE2E4—, indican- 
do che un pedone si è spostato dal- 
la casa e2 alla casa e4. Il numero di 
mossa appare automaticamente e 
quindi non deve essere trascritto. 
“2. C£f3 — Cgé” diventa: 


CG1F3-CB8C6; Gl e B8 sono le 
rispettive case di partenza. La no- 
tazione deve essere esatta perché il 
programma non è in grado di rile- 
vare eventuali errori, se scrivete 
‘ RE1E4- ecc., durante la riprodu- 
zione della partita, il computer farà 
eseguire al Re un balzo ignorando 
completamente le regole degli 
scacchi. L’ultimo carattere di ogni 
semistringa, il sesto e il dodicesimo 
del record, normalmente non inter- 
viene nell’elaborazione, non può 
tuttavia essere una virgola, altri- 
menti compare il messaggio di er- 
rore e dovete riscrivere l’ultimo da- 
to input. Questo carattere può es- 
sere utilizzato come commento; ad 
esempio, se c’è la presa di un pez- 
zo, può essere “:”’, se c’è uno scac- 
co al re, può essere il segno “+”, 
oppure “!” se la mossa è buona e 
ancora “#” se c’è lo scacco matto. 
Normalmente si può usare il segno 
“-” o “=”. Ci sono tuttavia alcuni 
casi in cui questo sesto carattere 
della semistringa influisce nell’ela- 
borazione. Innanzi tutto se è “.”, 
nella seconda semistringa, voglia- 
mo indicare che la partita è finita; 
pertanto, quando si verifica questa 
eventualità e l’ultima mossa è del 
bianco, si completerà la stringa con 
degli spazi e si terminerà con il 
punto. Un altro caso particolare è 
la presa al passaggio; questa si se- 
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CALL HEHAR 
(RIGA) 


7 


FINE 
PARTITA 
? 


ARROCCO 


ARROCCO 
? 


CALCOLA 
R1,C1,R2,C2 


PROMOZIONE 


PRESA 
AL 
PASSAGGIO 


CALL HCHAR 
(MOSSA) 


Figura 1. Diagramma di flusso della parte riguardante la stampa. Il ciclo 
viene percorso due volte, la prima, con M=1, in cui viene letta la prima 
semistringa (mossa del bianco), la seconda, con M=7, in cui vengono letti 
gli ultimi sei caratteri (mossa del nero). 


gnala posponendo alle coordinate 
il simbolo “%”. La promozione di 
un pedone esige che si specifichi il 
pezzo con il quale viene cambiato; 
D è la regina, T la torre, A l’alfiere 
e C il cavallo. Il simbolo va inserito 
come sesto carattere della semi- 
stringa. Inoltre si indicherà con 
—0-0- l’arrocco corto e con 
0-0-0 l’arrocco lungo. 


Come vedete la notazione delle 
mosse è quasi uguale a quella con- 
venzionale, la quale risulta soltanto 
più semplificata. 

Le partite possono essere regi- 
strate su nastro una di seguito al- 
l’altra oppure a partire da numeri 
prefissati del contatore del vostro 
registratore. 

Le partite trascritte su nastro 


possono essere in seguito richiama- 
te ed eseguite sullo schermo; que- 
sto avviene selezionando il numero 
2. Quando appare la scritta RE- 
WIND CASSETTE TAPE CSI, 
dovete posizionare il nastro all’ini- 
zio di un file. Il caricamento avvie- 
ne in un tempo che dipende dalla 
lunghezza della partita e general- 
mente dovrebbe durare uno o due 
minuti. 

Caricata la sequenza di mosse, 
sul video appare una scacchiera, i 
nomi dei giocatori, il tipo di aper- 
tura, ecc. Ogni volta che viene pre- 
muto un tasto appare la notazione 
scritta della mossa e quindi questa 
viene eseguita sulla scacchiera. Per 
i dati scritti ho creato uno scroll 
verticale, come se occupassero una 
“finestra” e questo per non coin- 
volgere nello scrolling anche la 
scacchiera. Così appaiono scritte fi- 
no a dodici mosse; quando si passa 
alla tredicesima, scompare la pri- 
ma. La possibilità di vedere, oltre 
ai movimenti sulla scacchiera, an- 
che la notazione scritta è partico- 
larmente utile quando si crea un 
archivio di aperture. Alla pressione 
di un tasto la partita prosegue fino 
a quando viene incorporato il pun- 
to al termine della stringa. A que- 
sto momento è possibile rivedere 
tutta la partita o passare ad un’al- 
tra. 

Si consiglia di apportare alcune 
modifiche al programma per otte- 
nere uno scrolling verso l’alto e 
verso il basso di tutte le mosse del- 
la- partita e di programmare un ta- 
sto per poter riprendere l’esecuzio- 
ne della partita dall’inizio senza 
dover attendere il suo completa- 
mento. 


Descrizione del programma 


Alla linea 210 viene dimensiona- 
ta la matrice uni-dimensionale A$, 
ogni suo elemento conterrà una 
mossa. In 220-280 compare il me- 
nù, in base alla scelta si passa alle 
linee 340 per l’output, alla riga 790 
per l’input del file e alla linea 2810 
per uscire dal programma. Per i 
principianti aggiungo che si può 
uscire in ogni momento dal pro- 
gramma premendo FCTN(4). 


Alla linea 350 iniziano le istru- 
zioni INPUT per l’introduzione dei 
dati e le istruzioni relative. La li- 
nea 580 fa in modo che i numeri 
progressivi vengano incolonnati in 
corrispondenza delle unità. Alla li- 
nea 610 si rileva se la stringa in in- 
put ha lunghezza diversa da 12 ca- 
ratteri e, a 640, se questa termina 
con un punto, si esce dal ciclo di 
input. Se si ritiene di aver trascritto 
correttamente i dati si può passare 
alla registrazione; l’OPEN viene 
data alla linea 700, su nastro il file 
non può che essere organizzato in 
modo sequenziale, l’apertura è in 
output poiché i dati devono passa- 
re ad un mezzo esterno, INTER- 
NAL si riferisce al formato di regi- 
strazione, infine FIXED indica che 
tutti i record hanno la stessa lun- 
ghezza (64 byte). Come si può no- 
tare ogni record comprende 4 mos- 
se. In 800-1190 si definiscono i ca- 
ratteri ed i colori che formeranno 
la scacchiera. Le successive varia- 
bili con indice YY serviranno in se- 
guito nella subroutine 
“promozione di un pedone”. In 
1250 si trova la OPEN in input per 
richiamare i dati in memoria cen- 
trale. Notate che i record vanno ri- 
chiamati con riferimento alla stessa 
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struttura usata per l’output, cioè, 
se il record è formato da quattro 
campi alfanumerici, anche se si 
usano nomi diversi, devono sempre 
essere richiamate quattro variabili 
di stringa. Interessanti sono i cicli 
delle linee 1450 e seguenti, il loro 
scopo è quello di creare il grafico 
della scacchiera senza ricorrere a 
64 istruzioni CALL HCHAR, tan- 
te sono le case della scacchiera. 
Nella linea 1740 una CALL KEY 
dà il via all'esecuzione di una mos- 
sa. I REM inseriti nel listato vi 
permetteranno di comprendere 
l’ordine in cui vengono eseguite le 
varie operazioni. Il clou del pro- 
gramma è la parte adibita a ricono- 
scere il pezzo presente nella casa di 
partenza, spostarlo nella casa d’ar- 
rivo e rimettere una casella vuota 
nella precedente. 


Queste operazioni non sono così 
semplici come potrebbe apparire in 
un primo istante, infatti un pezzo 
bianco su sfondo scuro potrebbe 
spostarsi su una casella chiara ed in 
questo caso il pezzo non può essere 
definito dallo stesso carattere. In 
questo programma il Re bianco su 
fondo scuro è il carattere 128, 
mentre il RE bianco su fondo chia- 
ro è il carattere 136. Alle linee 
1960-1990 avviene la decodifica 
delle coordinate di ogni mossa che 
vengono trasformate in numeri di 
riga (R1 ed R2) e di colonna (Cl e 
C2) dello schermo. La seguente 
CALL GCHAR riconosce il pezzo 
della casa di partenza (PX). Si pos- 
sono verificare quattro situazioni 
condizionate dai colori dello sfon- 
do: da chiaro a chiaro, da chiaro a 
scuro, da scuro a chiaro ed infine 
da scuro a scuro. Il numero di ca- 
rattere sarà invariato se resterà in- 
variato lo sfondo (PX=PX) ma 
cambierà al variare di quello 


‘(PX=PX+8 oppure PX=PX-8). 


Il computer sa se una casa è chiara 
o scura sommando il numero di li- 
nea con il numero di colonna, se la 
somma è pari la casa è chiara, se è 
dispari è scura. In 2150-2240 c'è il 
controllo su un’eventuale presa al 
passaggio o sulla promozione di un 
pedone; le relative routine si trova- 
no dopo la linea 2250 che chiude il 
ciclo. 
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Listato 1 
100 REM FERSONAL SOFTWARE 
1 Lo REM LEVETTA A 


120 REM + * 
130 REM * ARCHIVIO * 
140 REM & SCACCHISTICO » 
150 REM * * 


150 REMO HAMMAM AIA 
170 REM DI SERGIO BORSANMI 
190 REM Ta aa 

190 REM TI-99/44 sPRE BASIC 
200 CALL CLEAR 

Z10 DIM ASCIOG) 

220 PRINT TAB(11)s: "ARCHIVIO" 


30 PRINT TAB(9) si "SCACCHISTI 


240 PRINT "FREMI:"": 
SIA PRINT “ire REGIE STRARE UN 
A FARTITA "I: 
260 FRINT "2. RICHIAMARE UN 
A_FPARTITA""": 
Lr PRINT Ei STO 
280 INFUT "SCEL TA? "5% 
290 IF Sg="i" THEN 340 
x IF_Gs="2" BEN Z90 
1F. O" =" TREN SSL 
G0T0 80 
REM *** SAVE **X 
CALL CLEAR 

;0 FRINT " REGISTRARE UNA 
PARTITA":: sii 
360 PRINT "SCRIVI I NONI DEI 
GIOCATORI" 
370 INFUT "EIANCO "(1% 
380 ine "NERO rose 


PEIN 
ERINT "LUOGO E DATA" 
Liogra T EDS 


RINT 
INPUT "APERTURA: ":AP$ 
NEGO 

Nerd) 

460 PRINT "SCRIVI LE MOSSE U 
NA AD_UNA" 

470 PRINT "ES.: PFEDE4-PC7C5- 


480 PRI "pe TRE TERMIN 
A FON CONI "EBRTOSNI ; 
490 PRINT "AL PASSAGGIO: %": 


500 PRINT_ "PROMOZIONE: D.T,A 
2 DPPURE Chi: 

516 PRINT "ARROCCO: 0-0 0F 
PURE 0-0-0"3: 
520 PRINT TAB(9) i". 


5250 N=M+1 

540 IF _Na101 THEN 580 

DO PRIN "36 PEMDORY PAULI" 
560 CALL SOUND CLOOG, 440,2) 
SE BOE, 200 x 
S80 PRINT TABC(GH.ENCSTRE CN) ) 
Ya STR CNMI E 

590 INPUT AS Ch) 

600 CALI: HCHAR (ZI, 9, 

610 IF LE ENTRE NII ETA” “THEN 64 


620 PRINT "ERBORE! RIFROVA" 
30 BOTO S5BO 

640 IF SEGS(A®(NI 12,1)", " 
THEN 660 

650 60T0 Sao 

G60 CALL. CLEAR 

570 INFUT "YVUDI REGISTRARE? 
[SZNV "ERSE 
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#95 IF SEG#CRES,1, 1) es” THE 
ho 700 

490 G0T0 340 

700 OPEN #1: "C61" i SEQUENTIAL. 
Opi, INTERNAL sil IXED 


50 PRINT #1:61$/G26LDSiAP£ 
730 PRINT #IsA$(E) AS (E+1)5A 
$ (K+2) FA$ (E+3) 


740 bi=k+4 
750 IF_ES3N THEN 770 


760 GO0T0 200 

790 CALL CLEAR 

300 RE$="OB1C0B7F49TELC0O" 
049497E 753500" 
0B1BIZIEGE7E OO" 


T0$="002A 
” PESS=" G00OoT . E 
860 CALI. CHAR(128,RE®) 
970 CALL CHAR(129, DA£) 
880 CALL CHAR(I3G 


de, .L z 
P4OQ CALL CHAR (1377 DAS) 
950 CALL CHAR (138, AL$) 
960 CALL CHARLLIS,CA8) 
AS) Enable ERORE ARI ORI 
. PE) 
ARES) 


; CHAR (13 33° PES) 
. CHAR (158, "0" ) 
. CHAR CSA, "OGOoccocono 


CHAR CTS, "OOLOLOLO 


1010101") 
140 CALL CHAR(04, "BOgtoRocec0e 


prpnsasa 


to 


0808080") 


YY(1)=12 
VV (ZI}S1T2 


21 
LÌ X* (L.D de 

Sì OPEN #1:"CS1", INEUT ,SE 
QUENTIAL, INTERNAL, FIXED 
P60 Ea: 


1270 INPUT #1:61$,62$,LD$, AF 


80 INPUT #1: actaialo nf (E+1), 
(K+2) A$ (E+ 

290 EDR J=k Tò E4+S 

sO IF_ SEG tas Cd) 2 DI" 
RI 13540 


FESREZAE : = i 


Farr aseo 0 


è pad LA td f È # PI 


ftp 


1530 Mt 1280 
(segue) 


Segue Listato 1. 

1340 CLOSE #1 

1550 CALL CLEAR 

1360 PRINT TAB(14-LEN(LD$)/2 


Livo *hA 
370 PRINT TA EN(AF$) /2 
1370 PRINT E(14-L 
1380 PRINT TABC3)1G2$1:rrrt: 
1390 FRINT TAB(3)5G1$::: 
1400 PRINT n * PREMI UN 
TASTO 
1410 CALL HCEHAR (10,5, 34,8) 
1420 CALL VCHAR(11,4, 36,8) 
14350 CALL VCHAR(11,15,64,8) 
1440 CALL HCHAR(19,5,28,8) 
1450 DATA 156,147,154,145,15 
24146, 155, 148) 1 
1460 RESTORE 1450 
1490 READ PEZZO © 

O READ FEZZO 
1490 CALL HCHAR(11,4+J,FEZZO 
1500 NEXT J 
1510 FOR J=1 To 8_ STEP 2 
1520 CALL HCOHAR(12,4+3,149) 
1530 CALL HEHAR (12, 5+d4, 157) 
1540 NEXT J 


4 O 


fax do 

FOR RIGA=13 TO_ 16 
FOR J=i TD 8_STEP 2 
CALL HCHAR (RIGA, 443, 146 


CALL HCHAR (RIGA, 5+J,146 


NEXT J 
NEXT RIGA 

TR 7 
FOR J=i1 TO 8 STEF 2 
CALL HCHAR(17,4+I, 141) 
CALL HEHAR (17, 5+4, 133) 


MEXT = 
DATA 132,139, iso az A 


RE FEZZO i 
CALL HEHAR (18, 4+J, PEZZO 


NEXT J 
si) 

EY(0,KEY, STATUS) 
CALL RTUS=O THEN 1740 


del al STAMFA RIGA #* 


NoN RIGA=ZO TO 9 STEP — 


16$=STR$ (W)&"_"ZA$ (IM) 
3 Re Wi THEN 1890 
FOR _J=1_TO LEN(RIG$) 
[E SASC (GEBS (RIGÀ, 3; 1)) 
FALL HEHAR (RIGA, 14+],L) 


MEXT «d 


224 3 I ri I GA 
Je To Rido 
NEXT dx MOSSA #** 


CE fi PRE ES 
HE M=1 THEN 1920 

cisl =SEGS (AS CN) M n 8) 
TE SEO$ (MOSSA 1,5)="-0 
fi PAPA*PUI | 5 
1946 TE SEGS (MOSSAS, 145) =" 0- 
0-0" THEN 2580 

1950 TE "A = (MOSSAT A ta Via, 


THEN 2760 
at) R1i=19-VAL (SEGS (MOSSA, 3 


Fa75 Ci=ASC (SEG$ (MOSSA&, 2,1) 

CO noia 
1950 R2=19-VAL (SEG& (MOSSA$, 5 
397, C2=ASC (SEG (MOSSA£, 4,1) 
mn 19) 

2000 CALL SGCHARCR1,C1,FX) 
2010 IF _PXsMxsz+130 THEN 2og0 
2020 VECCHIO=134 

2050 _IF (R2+C2)/2=INT( (R2+C2 
} /2) THEN 2060 

2040 PEZZO=FX 

2050 G0T0 2130 

2060 PEZZO=FX+8 

2070 GBOTO 2130 

2080 VECCHIO=158 

2090 _ IF (R2+C2)/2=INT ((R2+C2 
)} /2) THEN, 2120 

2100 FPEZZO=PX-8 

2110 GOTO 2150 

2120 PEZZO=FX 

130 CALL HCHAR(C(R1,C1, VECCHI 


} 
140 CALL _HEHAR (R2,C2, PORELA 
150 FF%&=! BEGS (MOSSAS, 6, ) 
100 IF_FF#&="%" THE 3860 

È 


f 


È 


133 Toe, 

80 ="D" THEN 2620 
2190 PRO=2 dada 

2200 IF _FF$="T" THEN 2620 
PRO=3 s 
IF_FF$="A" THEN 2620 
PRO=4. 

IF FF$="C" THEN 2620 
IF M=i THEN 1910 ELSE 1 


2260 REM +*** ARROCCO *** 
E 


pri 
dd 
tot 
al 
Ur) 
dr 
oe) 
ab 
teri 
di 
E) 
Pa 
mi 
pa 
A 
ai 


SE270 HH DSS 
MOHAR (11, 12,134) 
HAF 10,148) 
9,158) 
11,152) 
+9, 134) 
11,129) 
, 12,158) 
a 10,140) 
4O 
19, 158) 
1,7,152) 
(1105) 158) 
2420 £ 11,8, 148) 
5440 CALL FCHA 9,13 
2450 CALL HCHAR (1873136) 
2460 CALL HCHAR (18/5/1354) 
2470 CALL HECHAR(18,8,140) 


2480 SOTO L250 
«490 REM #+** AL PASSAGGIO * 


22500 IF M=1 THEN 2560 
CIAO: TIFO (R2+C2) /2=INT ( (RZ2+02 
ALE) THEN 2540 * 
5520 CALL HEHAR(15,C2, 158) 
30 GO0TO 2250 
S340 CALL HCHAR(15, 02,134) 
2550 GOTD 2250 ‘ 
2560 TE (RS+C2) /2=INT((R2+C2 
) /2) THEN 2590 A 
2570 CALL HCHAR(14,C2, 158) 
2580 GOTO 2250 
2590 CALL HCHAR(14, 02,134) 


(segue) 


Segue Listato 1. 2720 FEZZO=YY (ERO) +8 
2750 CALL HCHAR (RI, C2, PEZZO) 


PE0O0 GOTD 2250 5740 B edrtate 
1610 REM *** PROMOZIONE »#+4 Sadr RE SER FINE PARTITA * 
*X* 
2620 ORD=(R2+C2) /2 2760 È OR (23.1. TR. 4 
2630 IF ORD=INT(0RD) THEN 69 in SAL gg i dip TESTO E] cas 
È STESSA" er” 
26540 IF Mel THEN 2670 2780 INEUT "PARTITA? (S/N) " 
2650 FEZZO=YY (FRO)+16 "RIG® 
660 GOTO 2750 2790 IF SEG&(RIS®,1,1)="S" T 

SE? VIPRO) HEN 1550 rr 

GOTD 2750 2900 BOTO 200 

TE M=1 THEN 2720 £G10 CALL CLEAR 

FEZZOZ=YY (PRO) +24 2920 END 

GOTO 2730 n 


È vero: piccolo è bello! 


Alla scoperta dello wo er 
ZX SPECTRUM Alla sseperat dello 


Ca 


esco x 4 
© 5 


ZX Spectrum è l'ultimo nato della famiglia Sinclair. È un n 2CI UTI 
calcolatore a colori di piccole dimensioni, ma di È ec — 
grandissime possibilità. Imparare a usarlo bene può == 
essere fonte di molte piacevoli scoperte. Questo libro vi 
aiuta a raggiungere lo scopo. In 35 brevi e facilissimi 
capitoli non solo imparerete tutto sulla programmazione 
in BASIC, ma arriverete anche a usare efficientemente il 
registratore e a sfruttare al meglio le stampe. 
Soprattutto capirete la differenza tra il vostro Spectrum 
e gli altri computer. 


a cura di Rita Bonelli 


320 pagine. Lire 22.000 Codice 337 B 


TI. 
Rita Bonelli 


Seteide 


Per ordinare il volume utilizzare l'apposito tagliando inserito in fondo alla rivista 
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Procedura di recupero 


Ovvero come 
annullare gli effetti di 


un NEW nel VIC 20 


di Luciano Gemme 


chiunque si reputi un pro- 
A granmator sarà certamente 
capitato almeno una volta di 
aver dato, in un attimo di follia o 
di distrazione, il fatidico comando 
e di essere poi rimasto ad osservare 
sconsolato quelle tre letterine che 
magari significavano ore di pro- 
grammazione buttate via. 
Quasi per caso, studiando come 
il VIC memorizza i programmi, ho 
scoperto che è invece possibile 
“riportare a galla” il programma 
presente in memoria all’attimo del 
NEW. 


Indirizzo Contenuto 


Effetti del comando NEW 

Nella sua configurazione base, il 
VIC memorizza il programma a 
partire dall’indirizzo 4097 (il cui 
valore è contenuto nei byte 43 e 
44) secondo le modalità indicate in 
tabella 1. 

All’attimo del NEW il calcolato- 
re si limita a porre a zero i primi 
byte (4097 e 4098) lasciando intatto 
il resto del programma. Il brutto è 
che il puntatore di variabile si posi- 
ziona automaticamente subito do- 
po ovvero all’indirizzo 4099 
(peek(45)=3,peek(46)=16). 


1 puntatore inizio programma 
16x256+1 = 4097 


16 


puntatore inizio variabili 


link, contiene l’indirizzo della prossi- 
ma istruzione 


n. linea 


codifica linea programma 


fine linea programma 


altra linea 


fine programma 


inizio variabili 


Tabella 1. 
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Procedura di recupero: prima parte 


La prima condizione che dobbia- 
mo realizzare è di rimettere i giusti 
valori nei due byte azzerati; proce- 
diamo così: 


POKE 4098,16 
LIST 


Vedrete apparire la prima linea 
del defunto programma: perché 
questo? 

La risposta si trova se ci ricordia- 
mo che i byte 4096 e 4097 sono an- 
cora a zero, il calcolatore lista 
la prima linea poi salta a 
16*256+0=4096 dove trova due 
zeri e si arresta. Ora contate il nu- 
mero di comandi Basic contenuti 
nella frase e sommatelo agli altri 
caratteri presenti (tranne il numero 
di linea), sia N il numero ottenuto: 


POKE 4097,6+N 
LIST 


Esempio: 
10 REM PROVA: PRINT“PROVA” 
POKE 4097,6+16=22 


Se avete contato bene vedrete 
apparire il listato di tutto il pro- 
gramma. Badate bene: ora il pro- 
gramma è solo listabile, qualsiasi 
tentativo di modifica o di attuazio- 
ne manderà la macchina in tilt, 
questo perché il puntatore inizio 
variabili non è ancora al suo posto 
ma è ancora puntato a 4099. 
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Procedura di recupero: seconda 
parte 


Battete ora: 


POKE 44,29 
POKE 46,29 


Abbiamo ora spostato il punta- 
tore di programma e di variabile ri- 
spettivamente a 7425 e 7427. An- 
dremo, quindi, ad operare in una 
zona di memoria lontana dal pro- 
gramma. 

Premete RUN/STOP, RESTO- 
RE e battete: 


0 REM 
10 I=4097 
20 I=PEEK(I)+PEEK(I+1)*256 
30 PRINT I:IF I<>0 THEN 20 
GOTO 10 (non date RUN!) 


(non omettetela mai!) 


Indirizzo Conf, base 


43 1 


44 16 
45 3 
46 16 
S5 0 
56 


Tabella 2. 


Superespansione 


1 


4 


3 


4 


Appariranno una serie di numeri 
progressivi poi uno zero e il pro- 
grammino si arresterà: ponete N 
uguale all’ultimo numero prima di 
zero più due. 


Sia X=INT(N/256) e 
Y=N-X*256; scrivete poi: 


POKE 45, valore di Y 
POKE 46, valore di X 


Siamo alla fine, non manca che 
rimettere al proprio posto il punta- 
tore inizio programma: 


POKE 44,16 


E il gioco è fatto. 

Naturalmente chi è in possesso 
di qualche espansione deve variare 
alcuni indirizzi; tenga comunque 
presente lo schema in tabella 2. 


Descrizione 


byte meno significativo 
puntatore inizio programma 
byte più significativo 
puntatore inizio programma 
byte meno significativo 
puntatore inizio variabili 
byte più significativo 
puntatore inizio variabili 
byte meno significativo 
indirizzo fine memoria 

byte più significativo 
indirizzo fine memoria 


—-- 


Guida e cacciatore 


Due divertimenti 
matematici per lo 
ZX81 


di Paolo Ferrari 


uesti due programmi sono 

ispirati ad un semplice gioco 

matematico pubblicato sul 

libro di Carlo Sintini Quiz e 

giochi matematici, della Longanesi. 

Girano sullo ZX81 nella versio- 

ne da 1 K e consentono di fare dei 

solitari, di giocare contro i vostri 
amici o... contro il vostro ZX. 


Il gioco 


Il gioco originale avviene tra due 
giocatori. Uno riveste il ruolo (atti- 
vo) della guida e l’altro quello 
(passivo) del cacciatore. La guida 
fissa un numero-obiettivo che deve 
restare sconosciuto al cacciatore, il 
quale si limiterà a “sparare” cifre 
da 1 a 9 (mai due uguali consecuti- 
vamente, altrimenti il gioco diven- 
ta banale). La guida deve scegliere 
tra le quattro operazioni di somma, 
sottrazione, moltiplicazione e divi- 
sione quella che applicata al nume- 


Cifra di Cifra sparata 
partenza dal cacciatore 


1 


ro “sparato” dal cacciatore le con- 
sentirà di raggiungere più veloce- 
mente l’obiettivo. Il numero di 
partenza è sempre 1. 

Nella tabella 1 è illustrato un 
esempio di partita. A questo punto 
si contano le mosse che sono oc- 
corse per raggiungere l’obiettivo e 
si scambiano i ruoli. La guida che 
utilizzerà il minor numero di mosse 
vincerà. 


Il primo programma 


Questo programma (listato 1) vi 
consente di giocare nel ruolo di 
guida. Quindi potete utilizzarlo per 
fare solitari o per sfidare i vostri 
amici a chi, per esempio, totalizza 
il minor numero di mosse sulla di- 
stanza di 10 partite. Il computer fa 
da cacciatore e visualizza sullo 
schermo tutto ciò che vi serve. Tra- 
mite la linea 35 non “spara” mai 
due volte la stessa cifra e quando 


Operazione scelta Risultati 
dalla guida parziali 


+ 4 
. 32 
+ 


37 
35 


OBIETTIVO = 35 
NUMERO MOSSE = 4 


Tabella 1. 


SI 


indovinate l’obiettivo vi indica il 
numero di mosse impiegate e vi 
chiede se volete fare un’altra parti- 
ta. 


Il secondo programma 


Il secondo programma (listato 2) 
assegna il ruolo di guida al compu- 
ter e a voi quello del cacciatore. 
Dovete inserire le cifre da 1 a 9 ma 

. attenzione, la linea 30 non vi 
consente di barare! Non potrete 
quindi inserire la stessa cifra conse- 
cutivamente. Il computer sceglie 
l'operazione più conveniente, ese- 
gue i calcoli, visualizza i risultati e 
vi chiede un nuovo input. Ovvia- 
mente ha già scelto l’obiettivo, ma 
ve lo tiene ben nascosto per poi co- 
municarvi, quando lo ha raggiunto, 
il numero di mosse impiegate. 
Questo programma è preparato 
per generare obiettivi di due cifre, 
ma potete facilmente, alterando la 
linea 5, alzarne l’ordine di grandez- 
za. 

In entrambi i programmi i risul- 
tati delle divisioni sono arrotondati 
ai mumeri interi, per evitare 
“impegolamenti” con numeri deci- 
mali da cui è difficile uscire. 
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1 REM “GUIDA E CACCIATORE N. 1” 
5 LET M=1 
8 LETO=0 
10 LET Y=1 
15 PRINT “SCRIVI IL NUMERO DA RAGGIUNGERE” 
20 INPUT Z 
25 CLS 
30 LET X=1+INT (RND«9) 
35 IF X=Q THEN GOTO 30 
40 PRINT AT 0,26;Z;AT 10,0;Y;TAB 8;X 
45 INPUT A$ 
50 IF A$<>”—" AND A$<>"+” AND A$<>”+” AND A$ <>“/" THEN 
GOTO 45 
55 IFA$="—" THEN LET Y=Y-X 
60 IF A$="+" THEN LET Y=Y+X 
65 IF A$="»" THEN LET Y=Y=X 
70 IF A$="/" THEN LET Y=INT (Y/X) 
75 PRINT AT 10,6;A$;TAB 10;“= ";Y 
80 IF Y=Z THEN GOTO 200 
85 LET X=Q 
90 LET M=M+1 
95 SCROLL 
100 GOTO 30 
200 PRINT AT 18,0;M; “ MOSSE”; AT 21,0;“ANCORA UNA PARTITA ?” 
210 INPUT B$ 
220 CLS 
230 IF B$=“S1" THEN RUN 


Listato 1. Il computer è il cacciatore. 


comincia ad “oscillare” (cioè alter- 
na la somma e la sottrazione). In 
questa fase, se siete bravi, potete 
anche individuare l’intorno del nu- 


La competizione con il computer 


Usando entrambi i programmi 
potrete misurarvi contro il vostro 


computer e, se lo trovate troppo 
duro da battere, ricordatevi che 
quando arriva vicino all’obiettivo 


mero che deve raggiungere e lo po- 
tete giocare tenendolo lontano da 
tale zona. 


A proposito di questa competi- 
zione, è interessante analizzare più 
a fondo il gioco. La vittoria è de- 
terminata dalla differenza tra le 
nostre mosse e quelle dell’avversa- 
rio e dipende quindi da due fattori: 
e impiegare poche mosse quando 

si gioca come guida; 

e far impiegare molte mosse al- 
l'avversario quando si gioca co- 
me cacciatore. 

Questi fattori dipendono a loro 
volta da: 

e infallibilità nei calcoli da esegui- 
re per la scelta dell’operazione; 

e capacità di elaborare strategie 
che (come quella sopra indicata) 
ostacolino l’avvicinarsi all’obiet- 
tivo. 

E evidente che sul primo punto è 
avvantaggiato il computer, e lo è 
tanto più quanto più complessi di- 
ventano i calcoli (quindi quanto 
più alto è l’ordine di grandezza del- 
l’obiettivo). Sul secondo punto, in- 
vece, siamo avvantaggiati noi. Tut- 
ta la competizione è perciò incen- 
trata su questi due punti e può es- 
sere resa più o meno equilibrata 
variando l’ordine di grandezza del- 
l’obiettivo. 


Buon divertimento! 


1 REM “GUIDA E CACCIATORE N. 2” 
5 LET Z=INT (RND+*100) 
10 LET M=1 
15 LET J=0 
20 LET Y=1 
25 INPUT X 
30 IF X=J THEN GOTO 25 
35 PRINT AT 6,0;Y;TAB 8;X 
40 LET A=ABS (Z-(Y+X)) 
45 LET B=ABS (Z-(Y-X)) 
50 LET C=ABS (Z—-(YxX)) 
55 LET D=ABS (Z—(Y/X)) 
60 IF A<B AND A<C AND A<D THEN GOTO 200 
65 IF B<A AND B<C AND B<D THEN GOTO 300 
70 IF C<A AND C<B AND C<D THEN GOTO 400 
75 IF D<A AND D<B AND D<C THEN GOTO 500 
80 PRINT AT 6,6;W$;TAB 10;“= “;Y 
85 SCROLL 
90 IF Y=Z THEN GOTO 600 
93 LET J=X 
96 LET M=M+1 
99 GOTO 25 
200 LET W$="+" 
210 LETY=Y+X 
220 GOTO 80 
300 LET W$="—" 
310 LET Y=Y-X 
320 GOTO 80 
400 LET W$="%»" 
410 LETY=YaX 
420 GOTO 80 
500 LET W$="/" 
510 LET Y=INT (Y/X) 
520 GOTO 80 
600 PRINT M; “ MOSSE” 


Listato 2. Il computer è la guida. 


ZX Manager 


Un gioco di 
simulazione finanziaria 
per lo ZX81 


di Enrico Ferreguti 
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ria sono sempre stati dei classi- 

ci, basti pensare a Monopoli, e 
solo in questi ultimi tempi hanno 
preso il sopravvento i grandi giochi 
di simulazione strategica. Nel no- 
stro caso, trattandosi di un pro- 
gramma, la dotazione tipica di que- 
sti giochi come le carte degli im- 
previsti, le pedine, le banconote, 
trova comodamente posto sullo 
schermo sotto forma di numeri. 

Il nostro gioco si configura come 
una gara tra $ o meno concorrenti 
che si combattono a colpi di mi- 
gliaia di dollari. Lo scopo dei gio- 
catori è quello di quintuplicare il 
capitale iniziale (pari a 3000 $) in- 
vestendolo e disinvestendolo nella 
compravendita di titoli azionari. 

La “corsa” si svolge su di un per- 
corso lineare anziché circolare co- 
me nei giochi più tradizionali, col- 
locato in alto a destra che contiene 
le ‘iniziali delle varie caselle e l’a- 
sterisco per segnalare la partenza. 

Le caselle sono 9: la borsa (B in- 
versa), la banca (B), il telex (T in- 
versa), pagamento debiti (P), divi- 
dendi (D), tasse (T), congiuntura 
(C), inizio (un asterisco) e riposo 
(uno spazio). Ad ogni mossa viene 
mostrato al giocatore che possiede 
il turno il numero ottenuto con il 
lancio del dado (sullo schermo in 
basso a sinistra), viene spostata la 
pedina, e viene domandato se si 
vuole passare la mossa al prossimo 
giocatore o se si vuole approfittare 


I giochi di simulazione finanzia- 


della casella su cui si è capitati. Per 
le caselle congiuntura, tasse, paga- 
mento debiti le operazioni che le 
riguardano vengono eseguite auto- 
maticamente senza fermare il pro- 
gramma per domandare se il gioca- 
tore vuole passare. 

Nella parte centrale sinistra tro- 
va posto la situazione dei titoli, i 
dividendi e la tassazione. Sulla par- 
te destra del video trova posto la 
situazione patrimoniale del concor- 
rente che possiede il turno mentre 
in fondo a destra c’è lo spazio ri- 
servato alle comunicazioni con il 
programma. 


Borsa (simbolo B inversa) 


Sulla casella borsa si può vende- 
re o acquistare azioni alla quota- 
zione corrente segnalata sul display 
nella sezione riguardante la con- 
trattazione dei titoli. Il numero di 
titoli sul mercato è limitato, inizial- 
mente è pari a 200 azioni FIAT, 75 
Montedison, 46 SAI, 60 Italcable. 
La quantità è oggetto di cambia- 
mento in occasione di acquisto 0 
vendite. 

Come in un qualsiasi mercato la 
penuria di una data merce provoca 
l'innalzamento del suo valore, e vi- 
ceversa quando c’è abbondanza il 
suo valore tende a diminuire. Que- 
sta legge economica è fissa per 
qualunque merce oggetto di scam- 
bio (per es. le monete, la frutta, 


istruzioni. Le altre opzioni sono 
però mantenute. 

In effetti lo “ZX data base” è 
più un programma didattico che un 
programma destinato ad un uso 
continuato. A suo sfavore gioca la 
lentezza di registrazione e carica- 
mento che costringe a soste di 5 
minuti e più in attesa di poter rico- 
minciare a lavorare. Comunque, in 
molte occasioni che costringereb- 
bero alla creazione di programmi 
specifici, lo “ZX data base” risulta 
molto versatile ed adattabile a si- 
tuazioni diverse, basti pensare al- 
l’utilizzazione di una mailing-list. 

La prima opzione disponibile 
con questo programma è la possibi- 
lità di definire automaticamente la 
lunghezza di ogni campo, il nume- 
ro di campi in ogni record e il no- 
me di ogni singolo campo. Tutto 
questo è possibile digitando RUN, 
che provoca la cancellazione di 
ogni dato precedentemente archi- 
viato. Sono queste infatti le opera- 
zioni necessarie per l’inizializzazio- 
ne di un archivio. 

Dopo questa fase appare il main 
menù con cui si può decidere del- 
l’esistenza e del trattamento a cui i 
dati devono essere sottoposti. 

Le scelte sono: la ricerca di dati 
nei record, la modifica di questi, la 
cancellazione di interi record, la 
definizione dei campi e il salvatag- 
gio su nastro. Procediamo analiti- 
camente alla descrizione delle op- 
zioni. 


- ZXN 
PERSONAL È 


HI Ph 
NDEABUIDLIN 


ld 


COSTITUITO" 
5@ LET RECZ=INI 


65 PRINT ES 
7 PRINT “DID 
#5 IF INKEY 


PREGICLO “E 
ie, fabiani 


Listato 1. // programma “ZX data base” 


FINIZIONE ARCHIL'I. 


1. RICERCA Sicuramente è la 
più importante funzione in un pro- 
gramma di data base ed è quindi 
articolata in varie sottochiavi di ri- 
cerca. Il successo di questo tipo di 
programmi sta soprattutto nella 
versatilità e nella velocità della ri- 
cerca che qui è stata potenziata nei 
limiti del possibile. Il sottomenù di 
ricerca comprende le seguenti op- 
zioni: ricerca per campi, diretta e 
num. rec. 


a) ricerca per campi: può essere 
assoluta o relativa. Volendo usare 
quella assoluta il calcolatore ci 
stamperà tutti i campi x (x=il cam- 
po che vogliamo vedere) di parte 0 
tutti i record. Quella relativa inve- 
ce stamperà unicamente i campi, 
fra quelli che abbiamo scelto, che 
iniziano per il gruppo di lettere, o 
per la lettera che avremo dato in 
input, quindi se inseriremo “S$” co- 
me parametro di uguaglianza e “2° 
come parametro di campo il pro- 
gramma stamperà tutti i campi “2” 
che iniziano per “S”, 


b) ricerca diretta: serve per vede- 
re stampato un record completo a 
nostra volontà, quindi se inserire- 
mo “10” all’input, verrà stampato 
tutto il record 10. 


Cc) ricerca num.rec.: è un surro- 
gato della ricerca per campi relati- 
va in quanto stampa quanti e quali 
record ha il campo x (x=campo da 
esaminare) che inizia per il para- 


NOP 


metro di uguaglianza; in pratica si 
procede come visto prima. 


2. MODIFICA Anche questa 
funzione è molto importante per- 
ché permette di modificare ogni 
campo di ogni singolo record a pia- 
cere. Dopo aver inserito il numero 
del campo da cambiare appare un 
“>” in inverso ad indicare la posi- 
zione della modifica, dopodiché si 
inserisce il nuovo campo. 


3. CANCELLAZIONE L’opzio- 
ne serve a cancellare un record. 
Per cancellarlo bisogna prima inse- 
rire il numero del record e si batte 
“C” per far accettare il comando 
(serve per impedire all’utente di 
sbagliare il record da cancellare). 


4. DEFINIZIONE Se i nomi dei 
campi non ci vanno più bene si può 
usare questa funzione per cambiar- 
li (niente paura, il programma si 
spiega da solo). 


5. SALVATAGGIO È l’opzione 
più semplice: si prepara il registra- 
tore, si preme NEWLINE, si 
aspettano cinque minuti in attesa 
della fine del salvataggio e si ritor- 
na al main menù. 


Il programma occupa circa 8 KB 
quindi ne restano altri 8 a disposi- 
zione per i dati, di conseguenza è 
spiegato l’8000 in riga 45: per au- 
mentare o diminuire la quantità 


DEFINIZIONE 
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Figura 2. Esempio di esecuzione 
del programma “ZX data base” 


delle informazioni basta darci una 
rintoccata (8000=byte liberi per 
dati). 

Basta dare un’occhiata al listato 
per capire che è stato dato spazio 
alla conversazione con l’utente, 
quindi il programma può essere fa- 
cilmente ridotto per consentire di 
immagazzinare più dati. 

Sicuramente gli studiosi e i tecni- 
ci informatici avranno qualcosa da 
ridire sull’impostazione del pro- 
gramma; purtroppo lo ZX81 non è 
certo uno tra i computer più sofisti- 
cati e il programma in sé non è dei 
più ortodossi, comunque possiamo 
assicurare che funziona alla perfe- 
zione e che abbiamo cercato di sfrut- 
tare le caratteristiche dello ZX in 
modo da ottenere un algoritmo fun- 
zionale e lineare. MI 
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ZX data base 


Con uno ZX81 e un 


registratore possiamo 
creare, modificare, 
ricercare, cancellare i 
dati di un archivio 


di Enrico Ferreguti 
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hanno fatto storia nell’infor- 

matica, infatti le prime appli- 
cazioni dei calcolatori si sono volte 
proprio a disciplinare anagrafi o si- 
mili, ormai congestionate e impos- 
sibili da gestire manualmente. Pra- 
ticamente questi programmi, detti 
“data base”, possono immagazzi- 
nare e gestire qualsiasi tipo di in- 
formazione servendosi di particola- 
ri supporti detti file. All’interno di 
questi file i dati sono sistemati in 
modo da consentire un'agevole ri- 
cerca e modificazione. General- 
mente i file sono registrati su sup- 
porto magnetico (nastro o disco) e 
sono indipendenti dai programmi 
che li manipolano, però nel nostro 
caso, non consentendo lo ZX di 
comandare la registrazione e la ge- 
stione di file su nastro, vengono 
immagazzinati in lunghi array di 
stringhe che, all’atto del salvatag- 
gio del programma, verranno regi- 
strati insieme ad esso. I file, per 
poter essere usati con successo, de- 
Vono avere una determinata gerar- 
chia: un file (vedi fig. 1) è compo- 
Sto da moltissimi record, ossia ag- 
&regazioni di informazioni riguar- 
danti un dato soggetto non omoge- 
nee fra di loro, cioè tali che la loro 
natura non coincide (nell’esempio 
ogni record ha il proprio nome, il 
proprio cognome ecc.). Gli insiemi 
di informazioni riguardanti Più re- 
cord e che sono omogenee fra di 
loro, prendono il nome di “campi” 


I programmi per archiviare 


(p. es. il campo “nome” contiene 
in ogni record il nome dell archi- 
viato mentre quello ‘cognome 
contiene solo il suo cognome). : 

Il numero di campi e di record è 
a discrezione del programmatore; 
l’unico limite è la disponibilità di 
memoria. 

Quindi possiamo organizzare in 
archivio quello che vogliamo: per 
esempio la formazione delle squa- 
dre di calcio o un data base per ge- 
stire la nastroteca di programmi 
per lo ZX o qualsiasi altra utilizza- 
zione che comporti la registrazione 
di grosse masse di dati. 

Le funzioni standard che un data 
base deve avere sono le seguenti: 
modifica agevole dei file, ricerca di 
dati secondo più chiavi, cancella- 
zione file, ordinamento dei dati e 
stampa su video o su carta. 

Nel nostro caso la funzione di 
ordinamento è stata tralasciata per 
la lentezza con cui lo ZX esegue le 


Campo 1 Campo 2 Campo 3 

Nome Cognome Città 

Record 1 Giorgio Rossi Roma 
Record 2 Luigi Neri Milano 
Record N-1 Paolo Bianchi Venezia 
Record N Luca Verdi Napoli 


Figura 1. Rappresentazione grafica 
di un file a 3 campi di N elementi 
(nominativi). 


Listato 1. // programma “ZX Manager” 
3 REM EFFFkF£FEEFrFFFFFLYXFYIKFFKr 
2 REM x TFT X MANMAGE KR £ 
3 REM » * 
d REM +» FEPSONAL SOFTUASE è 
S REM FKFFEFFFIEFEFrrKrrirrrrrrofbe 

10 PRINT "OUENTI GIOCATORI ?". 

LIO INPUT NUtt 

112 IF NUM>5 THEN GOTO 2118 

115 DIM AS INUM. 103; 

15 FOR K=t TO NU®N 

416 PRINT “NOME DEL GIOCATORE “ 

132 INPUT R£ÉIR 

15@ FRINT SFESUIONOI 

160 NEXT 

165 LET 

LV PO LET E 

175 LET Z Cc Bell5co CTBPDE 
CDBITEC 

180 DIM A ra) 

185 DIM B MI 

159 DIM £ i 

192 LET T E 

193 DIM DLHI 4 

195 FOR K=1 FILIR 

20 LET RAiTK sasa 

210 NEXT K 

2135 LET £(1,1})=2@0 

220 LET C1,23=75 

25 LET £CI1.,3) =46 

230 LET C5{1,4) SQ 

235 LET C453) 536 

240 LET CI=S.23=E6 

245 LET Ci3,5}=-136 

25 LET Ci=l4)=199 

255 DIM 5E (4. £0) 

260 LET S%&i1}="FIAT" 

265 LET S$ (2! ="HONTEDISON" 

2706 LET 5$%(35} =“ 

275 LET 214}; =“ ITALCABLE" 

289 LET C(53.,23/=@8.2 

281 LET Ci53,2)=06.5 

282 LET CtES.5}=O.€ 

283 LET CiIS.4}=S.£ 

285 CLS 

290 PRINT 7 

390 FOR K=e 76 5 

3A5 PRINT AT K. 25; v* 

SIO KEXT K 

315 PRINT BT 6 A 

329 FOR Kk=7 TO 21 

325 PRINT AT K.25: "EB" 

338 PRINT ar 

Re Fab: “CONT ZIO 
du: apri BORSA“. i loz2. ET PREGO 
sé as HONTEDISON 

2 i Pa a SRI 130 
aBLE ide” go e. _.170__ ce ir 
“DIUIDENDI 5“. 

Sd PRINT “ | De A 
ASSAZIONE S "580 n 
n° 

352@ PRINT AT 29.90: "DADO=<: >“ 

ri, PAST pole “TOCCA” Ni 1 se 

asa PRINT ar FPa16; i”; 1 w 

370 PRINT aT 15,25 a: 

375 FOR K=1i1 TO NUM 

388 PRINT AT K.8B;/A&{K. 

385 NEXT K 

509 FOR G=1 TO NUM 

591 IF AiG.7}=1 THEN GOTO 7209 

582 LET TURND-TURNOC+1 

505 FOR kK=5 TO 214 

51Q PRINT AT K.16; 

515 NEXT K 

5208 PRINT ST 5.16:A%(G}: “; AT 
10,186; INT MiG,. go? a" BELLARIA 

FOR K=21 È 

A IF RIGLKI <>8 THEN PRINT TRE 

6 N RR: “TERERI 

535 NEXT K 

539 FOR K=2 TO 19 

549 PRINT &P S.,29;° 

541 PRINT AT 5,589; AS IG.II 

542 NEXT K 

545 LET DRDO=SINT RND*G5+1) 

SS8 FOR K=2 TO 5 , 

555 PRINT RT 209,5:CHR$& (DADO+25 


569 FOR U=1 TO 5 

565 NEXT LJ 
i ibn PRINT RT 208,5:;CHR%$ (DG“aeb0G+15 
5725 FOR U=1 TI 5 

RIG:.8); 7 * 
RG. 6)l +DADG 
AB L1G.5);A%(G.1) 
GG} «13 
AND Lgf<} ‘E Arto 

3° NT AT 21.9: PASS 
a La FIND <rxNE END 
LOI = 00): Sinai Gli THEN INPUT 0% 

529 PRINT AT 22.9: " 

625 IF :"£ THEN GOTO 706 

627 IF S$&<>."N"‘ THEN GOTO €629 
esa ei &99 

6535 t$="P" THEN GOTO 209 
4A TE L$&="E" THEN GOTG s=500 
645 IF CEE THEN GOTC S866 
650 IF t&= "#5" THER GOTTO 5500 
655 IF L&=Uo”" THEN GOTI 4500 
650 IF L&="C"“ THEN GOTO 4560 
665 IF L$&="T"“ THEN GOTO 50600 
709 FOR K.=1 TO NUM 

765 LET Bil,.,K}=B{2,KV+4E(2,KiIxl 
Seo 

P7P10 LET &f(2,X}; =Bb(2.,K} +6 (2.,K} 22,7 
SDOA 

715 NEXT K 

717 GOSUE è023 

7209 NEXT G 

?25 GOTO 56 

3909 FOR .1=35 TO 21 

505 FRINT ET «dad; 


810 NEXT +4 

815 RETURN 

2009 REM PAGAMENTI DEBITI 

2018 IF E l2,G})=6 THEN GOTO 7009 
2059 PRINT AT 16, 216; “DELI PAGARE 


;TAB 16; “UN DEBITO";TAB 216; DI 
“iA(2,6);" CREDITI" 

2040 LET RS,5) =R(6,5)-B(2, G) 

2050 IF AR({G.5} (9 THÉN GOTO 2100 

2055 FOR K=ì TO 50 

2060 NEXT kK 

2070 GOTO 799 

21009 LET B{2,G) ABS A(G,.5) 

2119 LET A(6.5}=9 

21229 PRINT AT_ 20,16; “RESTANO DA 

PAG. "(TAB 16;B(2,6};" CREDITI" 

2139 SOTO 2055 

2500 REM --BANCA-- 

2518 PRINT _AT_16,16:"-BANCA-":TA 

B_16;"S=SITUAZIONE"; TAB_ 16; “DSDE 


POSITO":TAB 26; “P= PRELIEVO"; TAB 
16; “F= FINANZIAMENTO"; TARE 16) "COS 
A_SCEGLI 7" 

25298 INPUT G% 

2525 GOSUE men 


2530 IF Sg= "Db" TREN GOTO 26009 
2532 IF QR="S" THEN GOTO 29509 
2535 IF Q$&="P" THEN GOTO 2700 
25409 IF Q&="F" THEN GOTO 2500 


2545 GOTO 7909 

2599 REM DEPOSITO 

tivo PRINT AT 25.16: DEPOSITO IN 
crc" 

2605 PRINT TAB 216; "DI %& “i 

2619 INPUT SGMMA 

2615 PRINT SOMMA 

262@ IF ALUG.5) SOMMA THEN LET SO 
MMR=A (G_.5; 


2625 LET B(2,6) =B (2,6) +SOMMA 
2530 LET A(‘G.,5}=A (6,5) -SOMMA 
2635 PRINT TÀB 16; “CC =% “iBil, 
G) 

26409 FOR lì-i TG 1900 

2645 NEXT Y 

2659 GOTTA ?6G0 

2599 REM PRELIEVO 

2700 PRINT AT 16,216; “PRELIEVO "“;T 


AB_16; "CC =% »* (B(G) 
27095 PRINT AT 15,216; “PRENDI > 


(segue) 
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271@ INPUT SOMMA 

2715 IF 821.6} SOMMA THEN LET SO 
MA=B {1,63 

2725 PRINT TAB 16; "$ “; SOMMA;TAB 
16; "RESTANO $ “:B(1,6) 

2794 FOR n=2 fo îeo 


3799 REM FINANZIAMENTO 
2300 PRINT AT 15,16; “FINANZIAMEN 
2805 PRINT AT 18,16: “GUANTO VUCI 
2810 INPUT SOMMA 


2812 PRINT TAB 16: SOMHA: &U 


2815 IF RNDC.3 OR SOMMA +8 t2, G313 
2000 THEN GOTO 25908 

2820 PRINT TRS 26; “PRESTITO ":TAG 
16; "ACCORDATO" 

2925 LET E (2,6) =«E (2.6) +SOMMAa 

28309 LET AIiG.5} =R(6.5! +50MNA 

2835 FOR W=1 TO 100 

2846 NEXT li} 

28598 GOTD 700 

2999 PRINT kT_ 219,16; “NON POSSIAM 

o“*;TR6_ 16; “ACCORDARE; ;: TRB 16; UIL 


PRESTITO" 

291@ GOTO 2655 

2959 REM SITUAZIONE 

2955 IF 65{1.GI )O@ THEN PRINT AT 
165,16; "IN ATTIUO “(INT E(L.G)}:" 


29602 IF B(2,GI <}@ THEN PRINT_AT 
17.218: "IN PASSIUO “(INT BI{2S.G};;" 
$" 


2965 FOR W=1 TO SO 

2979 NEXT_LW 

GOSUE 590 

GOTO 2569 

2999 REM EORSA 

CES PRINT AT_16,.15;° 'EBORSA":TAB 
6; "1) =RCQUISTO":;TAB 216; “2) =UEND 

ITÀ" TAB 16: "COSA SCEGLI 7° 

3001 INPUT 9D$ 

30@2 IF @$&="2" THEN GOTO 3500 

3803 IF QO%c:"'1" THEN GOTO 709 

3004 GOSUb Ss00 

3905 PRINT ST 26,15: "-BORSA-" 


3219 PRINT " ESUANTITA""" 

2958 ant TO 4 

aa TT TRE na ia PO x 
TOI: “ DEIR Ù ZETA 
3025 NEXT K 

3032 PRINT TRB 16: COSA VUDIT" 
3a35 INPUT SC 

a04@ IF SC<21 OR SC.:4 THEN GOT9 S 


3045 GOSUE 590 
asa PRINT ST 26,16; "QUANTE SZIO 
NI";TAb5 16; 35% (SU/;TABS 16; "UUGI T 


3455 INPUT RZ 

asd IF Ci1.SCì «AZ THEN LET A 
(1, Sci 

3065 IF AT*C(2,S0):A(6,5) THEN L 
ET Rz=INT (A(G15,/0(2, 803 7 

3078 FRINT TA 

38553 IE A(0,SC) =0 THEN LET D‘6,5 
Ci x IRDIC 

SAS LET ©01)60) =Ci121,SCY-AZ. 
3982 LET Ai{S.3) =AR(G.5) - INT (ALEC 
2,503) 

SBèi. PRINT &T 21,16; "SPESA = “if 
Tab ia,SCi; &" 

Sass LET RIG,S0) =R(6G,5SC) +AZ 

5p8S LET £i(2.3SC) =C(2,501+C13,SC) 
*A LUI 
5935 PRINT AT 9+5C,10:;" 

Sd PRINT AT 9+5C,10:C(2.SC) 
3195 FOR H#=1 TO 1969 

SiLiAa NEXT W# 

S115S GOTI 7?76GE 

S3a8 SEM VENDITA AZIONI 

3305 GCOSUE SDO 

5319 PRINT _RT_ 25,16: "-BORSA-":TA 
B 15; CHE AZIONI *:TÀB 16; VENDI? 
3344 DIM L$&(4) 

iis rino, 

3320 sa 

3325 IF L$&=353%&{R.1 TO sd} THEN GOT 
Ge sss 

G33A NEXT K 


3349 GOTO 709 

3359 PRINT TAB 26; “OUANTE AZIONI 
;TAS_15:5%(K}:TAB 16; UENDI 7" 

335% INPUT RE 


o0 IF AZEC(2,K}) x: 1506 THEN GOTTO 
7 
3365 IF AZ>A{G,KR} THEN LET RZ=MIL 


To DIES te: ti +AZ 
(91 (3 =R{G. K.} -ARZ 
+83 =S THÈN LET DEIG.RK3 


fado) 


GOSUE sSG6O 
PRINT AT 216, 16; 
15: REFDISU|NI(:' 
LET FRI ET 
LET C42, = 


[Ngas] 


n 
5.55 FAZECLZ,RK]I 
e K 


1 
ak} -RZECLG.RK} 


> 


5! «259 THEN GUTCO 709 
ERINTO "AT bs ib; TELEX" 
TAB 216: “LA TARIFFA E" 
s ‘DI 259 $&" 
PRINT_TAS 15; 1) BANCA"; TRAE 
‘2) =BORSA" 

INPUT L$% 

GOSUE 59009 

LET ARIG.51=R(G.5) -2506 

IF i$="1" THEN GOTTO 2500 
IF_Ltl&$&="2" THEN GOTO 35600 
GOTG 799 

REM GILIDENDI 

LET SGOMNA=S 
+@18 PRINT AT. 216,156; "I DIVIDENDI 


PRINT TRAE 20: ANONTENO A 
4925 FOR K=1 TO 

IF_D(G.,K}=S9 *tuen GOTO 49769 
LESE PERIODI=TURNO-D {G,K} 
LET AZ=C2,K3} E (DIU/5000) PE 


+4252 LET SOMMA=5SOMMAR+AZER(G.K} 


DI ILE LIAN LATI LIL ULI 


DOAIIUORIT MINIMAL IOT LIDI 


dA LIVIO pH EHOLO 
FIOUNI NT" O A/0 OSSA Nus: 
Re) 
m 
$ 
sal 
om 
<P 
um 


W 


fa LIL) iN LI 


14956 LETO DG.) =TURNO 
1079 NEXT K 
+08 PRINT TRE 216: SOMMA; “ $°“ 


4055 LET RIG,.,5) =R (6.5) +SOMMRA 
41098 FOR _U=1 TO 21009 

4119 NEXT & 

GOTO 766 

REM CORGIUNTURA 

4505 FOR K=2 TO 4 

+519 LET C{(2.,K)} =C (2.Kì +INT 

SO -25) 16 

4515 NEXT K 

4529 FOR K=2 TO NUM 

45309 LET CAP=ARtR, 12) EC (2,1) +AiK.,2 
):C (2.2) +R CK. 5) aC 2. SI +A UK, 4) ECC 
Ci 4) +A(K, 5) 


{RND è 


4535 IF CAP}=15099 THEN GOTO 899 
TESS IF CAP <c=209906 THEN LET AK.T 


4545 NEXT K 

4559 LET TAX=TAX#+INT IRND»3-23 

IF_TAX<3_THEN LET TARX=3 

45508 LET DIU=DIU+INT (RNDES-2) 

IF DIU<®& THEN LET DIU=%S 

IF_DIU>12 THEN LET DIU=12 

4589 FOR K=1 TO 4 

4585 PRINT AT 9+K,20;" i: 
PRINT AT S+Kk, 9: CD. 

4595 NEXT_K 

1599 PRINT AT 25,12;DIL 

41595 PRINT AT 27? gli: TAX 

4619 FOR K=1 TO 

PRINT AT se, 25; “CONGIUNTURFA 


465209 FOR 4U=21 TO 5 
NEXT _UW 
4535 PRINT AT 16,285: 


4648 FOR _U=2 TO 5 

NEXT UY 

NEXT K 

GOTO ?090 

5@08 REN TASSE 

5010 LET CAP=S 

5SB1I5 FOR K=1 TO 4 

5029 LET GCRP=CARP+A (G,K} EC (2,K) 
5025 NEXT_K 

58389 LET CAP=CAP+A (G.5) 

LET TS=CAPETAXN/190 

5049 PRINT AT 16,16: "> LE TASSE “:T 


(segue) 


Segue Listato 1. 
STE 


=ABS R(G,5 


5@S55_IF Ata, 5} <8_ THEN PRINT_TAB 
TAB 15;Ab5 A{LG,5 


Pi "ADDEBITATI"; 
" IN_BANCA" 


Sace *1F A(G.5) <® THEN LET ALG,5) 


Sere GOTO 4169 
590901 DIM L$&(15 
8000 REM FINE 


"AMMONTANO ":/TAB 165; "A 


5045 LET A{G,5) =A(G,5) -TS 
S0s® IF_R{G,5) <@ THÉN LET B(2.6) 


see5 CLs 
smi iTS 


sézo 
8039 CLS 


STOP 
0906 SRUE 
90910 RUN 


820109 PRINT 
M_";RK:5);" 
8015 PRINT 
"UOGLIONO o” 
INPUT L$° 
8025 IF L$(1}="S"“ 


“HA_VINTO 


NTO "AF 1K) “CO 
Pb 

Ta8 S:"“I CONCORRENTI 
‘RICOMINCIARE 7" 


THEN GOTTO 2165 


8035 PRINT AT 9, 9; nbrptoo 5; E 
“";TAB 9: B ARRIVEDERCI pU:;TtAB 3: 


“MANAGER 


l’oro e i valori immobiliari tra cui 
le azioni). 

Anche in questo programma la 
legge è stata simulata inserendo un 
algoritmo che fa variare le quota- 
zioni in ragione del numero di titoli 
sul mercato (più titoli ci sono e me- 
no vengono quotati). Non possono 
essere vendute azioni per un valore 
superiore a 1500 $. 


Banca (simbolo B) 


La banca si compone di 3 opera- 
zioni: di deposito in c/c, di prelievo 
da c/c, di finanziamento oltre ad 
una opzione di situazione per co- 
noscere i fondi in banca. Per le 
funzioni di prelievo e deposito non 
ci sono problemi: il programma ad- 
debita o accredita sul conto corren- 
te le somme richieste a seconda 
dell'opzione scelta. L’operazione 
di finanziamento invece viene ese- 
guita solo se il numero casuale ot- 
tenuto con RND è minore di 0,3 e 
se la somma richiesta è inferiore a 
2000 $. Logicamente questa opera- 
zione costa, difatti ne vengono cal- 
colati i corrispondenti interessi pas- 
sivi ciclicamente. Vengono calcola- 
ti anche gli interessi attivi che ven- 
gono accreditati in conto corrente, 
ed è questo che rende convenienti 
le operazioni di deposito. 


Telex (simbolo T inversa) 


Il telex è un servizio a pagamen- 
to per mezzo del quale si può acce- 
dere alla banca o alla borsa pagan- 
do però una tariffa di 250 $ che dà 
la possibilità di compiere tutte le 
operazioni di banca e di borsa. 


Pagamento debiti (simbolo P) 


Alla casella “pagamento debiti” 
si è costretti a saldare tutti i debiti 
contratti con la banca, maggiorati 
degli interessi passivi maturati du- 
rante il periodo in cui si è usufruito 
di queste somme. 


Tasse (simbolo T) 


In questa casella si adempiono 
agli obblighi fiscali versando una 
somma proporzionale al capitale 
posseduto (non quello in banca ma 
solo liquidità e titoli) con un valore 
percentuale che inizialmente è del 
5% ma che è soggetto a variazioni. 


Congiuntura (simbolo B) 


È la fase di variazione dell’anda- 
mento economico. In questo parti- 
colare momento i fattori variabili 
del gioco sono soggetti ad una va- 
riazione (dividendi, tasse, azioni). 
Questa operazione varia le quota- 


zioni di borsa delle azioni, varia i 
dividenti sulle azioni e la percen- 
tuale di tassazione oltre a stabilire 
la bancarotta o la vittoria del con- 
corrente capitato su quella casella 
qualora il suo patrimonio (atten- 
zione: solo liquidità e titoli, non i 
fondi in banca) sia minore di 2000 
$ o sia maggiore di 15000 $. 


Dividendi (simbolo D) 


Quando si capita su questa casel- 
la si possono riscuotere i dividendi 
maturati dal momento in cui si è 
acquistato il titolo, l'operazione e 
una capitalizzazione semplice del 
valore delle azioni, quindi sarebbe 
più giusto parlare di interesse sulle 
azioni. 


Semplice strategia 


I concorrenti non possono bat- 
tersi direttamente tra di loro ma 
possono lo stesso danneggiarsi ma- 
novrando il prezzo delle azioni con 
oculate manovre di compravendita; 
i mezzi più remunerativi per rag- 
giungere l’obiettivo finale sono: 
l’acquisto e la vendita di azioni, la 
riscossione dei dividendi, gli inte- 
ressi di deposito. 

Non esiti il giocatore a contrarre 
un debito con la banca poiché per- 
mette il finanziamento per l’acqui- 
sto di partite di azioni maggiori. 

In questo programma quello che 
più dà nell’occhio è l’uso del dolla- 
ro come unità monetaria. Abbiamo 
scelto questa moneta per usare il 
simbolo “$” di immediato significa- 
to invece di “L.”, che oltre ad oc- 
cupare due caratteri costringeva al- 
l’uso di numeri a sette-otto cifre 
(pena la sensazione di essere in 
ben altri tempi, cioè quando si 
comprava una casa con 10.000 li- 
re). 


61 


Giocare con le 
parole con uno 
ZX81 


di Fausto Manfredini 


Paroliamo 


sistono altri programmi che 
E portano lo stesso nome di 

questo, ma si limitano ad 
estrarre a sorte le lettere con cui 
formare le parole. Invece questo 
programma, piccolo esempio di in- 
telligenza artificiale, stampa le pa- 
role che si possono formare con le 
lettere estratte. 

All’utilizzatore è richiesta una 
certa pazienza nella preliminare 
immissione di dati, cioè di parole 
di cinque lettere. Con minime mo- 
difiche, il programma gira anche 
per parole con numero inferiore 0 
maggiore di lettere e la versione in 
altri dialetti Basic è molto facile da 
eseguire. 

L’idea originale è stata quella di 
confrontare tra loro non le singole 


parole, ma i numeri che si ottengo- 
no sommando i codici delle lettere 
di ciascuna parola. Ad esempio, se 
memorizziamo MARIO, ORMAI, 
STORIA, MOIRA, RIAMO, 
AMORI, i codici delle cui lettere 
danno come somma 241 e se poi, 
in fase di ricerca digitiamo 
AIORM, anch’esse equivalenti a 
241, il programma farà apparire sul 
display le sei parole suddette. 

Avrei potuto rendere più sinteti- 
co il listato, ma, per ragioni di 
chiarezza, ho preferito usare qual- 
che riga in più. Bastano, quindi, al- 
cune parole di commento. 

Si noti la simulazione della fun- 
zione ON...GOTO di riga 80; la 
variabile di comodo di riga 105 ser- 
ve per delimitare il ciclo di ricerca 


Listato 1. // programma “Paroliamo”. 
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una fase di controllo che prende in 
considerazione le lettere che for- 
mano le parole. 


non perdete 
il nuovo numero di 


Bitest Microprofessor Il 
Acquisire dati con il VIC 20 
Anatomia dello ZX81 
Assembly Z80 rivisitato 


Trasmissione dati 
DBASE Il 

Riservato personal: 

64 pagine di programmi 
per il vostro personal 
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Il giro del cavallo 


Può un cavallo 
percorrere tutta la 
scacchiera toccando 
ogni casella una sola 
volta? 


di Giulio Morpurgo 


programma che risolve il pro- 

blema del “giro del cavallo”, e 
illustrerò in dettaglio il procedi- 
mento di analisi che conduce dal- 
l’enunciato del problema alla rea- 
lizzazione del programma. Gli 
aspetti più interessanti di questo 
procedimento sono: (a) l’uso dei 
concetti di ricorsione e di struttura 
ad albero; (b) la ricerca di un effi- 
cace compromesso tra velocità del- 
le singole operazioni e numero di 
operazioni necessarie per arrivare 
ad una soluzione. 

Il programma è stato scritto in 
Basic per un personal computer 
DAI; per trasportarlo su un altro 
computer sono necessarie solo 
semplici modifiche alle routine gra- 
fiche. 


Fr questo articolo presenterò un 


Il giro del cavallo 


“Data una scacchiera di dimen- 
sioni n X n, ed assegnata una ca- 
sella di partenza A, trovare un per- 
corso che, partendo da A e passan- 
do da una casella alla successiva 
tramite la mossa del cavallo degli 
scacchi, tocchi una e una sola volta 
tutte le caselle della scacchiera,” 

In figura 1 vengono mostrate 
(contrassegnate con i numeri da 1 a 
8) le 8 caselle raggiungibili dalla 
casella A mediante una mossa di 
cavallo. I numeri serviranno, come 
si vedrà più avanti, a stabilire un 


certo ordinamento tra queste 8 
mosse possibili. In figura 2 è ripor- 
tata invece una soluzione del pro- 
blema per una scacchiera 8 X 8; i 
numeri nelle caselle permettono di 
ricostruire il percorso, che parte 
dalla casella segnata con 1 e termi- 
na in quella segnata con 64. 

Per rendere più chiaro il proble- 
ma, consideriamo due casi semplici 
(1 e 2) per i quali la risposta è faci- 
le: 

1. Una scacchiera 3 x 3. In que- 
sto caso non ci sono soluzioni, per- 
ché la casella centrale non può es- 
sere raggiunta, con una mossa di 
cavallo, da nessuna altra casella. 

2. Una scacchiera di lato n di- 
spari. Su tale scacchiera, coloro le 


Figura 1. Le 8 mosse di cavallo 
possibili a partire dalla casella A. 
La numerazione introdotta verrà ri- 
chiamata nel punto 2. 


Figura 2. Una soluzione su una scacchiera 8 Xx 8; il cavallo parte dalla 


casella 1 e arriva alla casella 64. 


caselle in modo che quelle d’ango- 
lo siano nere; è immediato ricono- 
scere che non ci possono essere so- 
luzioni se la casella A di partenza è 
bianca. Ciò è dovuto al fatto che, 
mentre una casella e la successiva 
sul percorso devono essere di colo- 
ri differenti, il numero di caselle 
bianche è inferiore di uno a quello 
delle caselle nere; così, una volta 
raggiunte tutte le caselle bianche, 
ne restano due nere non ancora 
toccate dal percorso, e queste non 
potranno essere raggiunte una di 
seguito all’altra. 

Fatta eccezione per casi come i 
precedenti, non esiste un modo 
semplice per stabilire a priori se, 
per una data scelta di n e della ca- 
sella iniziale A, il problema abbia 
soluzioni. La sola via per saperlo 
sembra essere quella di esaminare 
tutte le possibili sequenze di mosse 
fino a che 

e o si trova una soluzione; 

e o, avendo esplorato tutte le 
sequenze senza trovare una solu- 


zione, ne segue che la soluzione 
non esiste. 

Questa sarà perciò la strategia 
usata dal programma. 


Come generare tutte le sequenze di 
mosse 


Uno dei requisiti necessari per 
poter realizzare un programma di 
questo tipo, che deve esaminare un 
numero enorme di tentativi per 
trovare una soluzione, è quello di 
trovare un modo semplice per ge- 
nerare tutti questi tentativi e per ri- 
cordare quali sono già stati esami- 
nati e quali sono ancora da prova- 
re. Si tratta, in altre parole, di riu- 
scire ad ordinare questo grande nu- 
mero di sequenze di mosse, in mo- 
do tale che sia semplice passare da 
una sequenza alla successiva; in 
particolare non si deve essere co- 
stretti a tenere in memoria una 
“tabella dei tentativi già fatti” e a 
confrontare ogni nuovo tentativo 


con essa per vedere se è già stato 
esaminato, perché ovviamente ciò 
sarebbe poco pratico! 

Il metodo che il programma uti- 
lizza, e che adesso verrà chiarito 
nei dettagli, si basa sul concetto di 
struttura ad albero. 

In figura 3 è mostrata una picco- 
lissima parte di quello che chiame- 
rò l’“albero dei tentativi”; ogni no- 
do di questa struttura rappresenta 
una casella della scacchiera e gli 8 
“rametti” che partono dal nodo per 
raggiungere altri 8 nodi rappresen- 
tano le 8 mosse possibili (in gene- 
rale) a partire da quella casella. 
Così un ramo che parte dal nodo 
iniziale A (che rappresenta la ca- 
sella di partenza) e, traversando 
l’albero lungo i nodi B e C, rag- 
giunge la casella D, rappresenta la 
sequenza di mosse A _B C D. La 
classificazione delle sequenze di 
mosse che sarà usata è basata sulla 
seguente utile osservazione: se nu- 
mero le otto mosse possibili a par- 
tire da una generica casella secon- 
do un ordine standard specificato 
una volta per tutte, il numero d’or- 
dine della mossa determina auto- 
maticamente quale casella viene 
raggiunta dopo la mossa. L’ordine 
standard adottato è quello mostra- 
to in figura 1; il numero scritto 
dentro ognuna delle caselle rag- 
giungibili da A indica il numero 
d’ordine della mossa fatta per pas- 
sare da A a quella casella. Ad 
esempio, tutte le volte che parto da 
una certa casella della scacchiera 
ed eseguo la mossa “1”, arrivo in 
una casella due righe sopra e una 
colonna a sinistra di quella di par- 
tenza. In questo modo ogni ramet- 
to che parte da un qualsiasi nodo 
può essere specificato senza ambi- 
guità con un numero da 1 a 8. 
(L’ordine standard descritto è 
adottato per numerare le mosse a 
partire da qualsiasi casella; nel ca- 
so di caselle vicino al bordo della 
scacchiera .la sola particolarità è 
che alcune delle 8 mosse non sa- 
ranno ammesse.) 


Si può ora passare ad analizzare 
in dettaglio l’albero dei tentativi. 

Se da ogni nodo partissero sem- 
pre 8 rametti (cioè se ci fossero 
sempre 8 mosse possibili), i rami 


65 


i "e 4 
sw) ( Mi i » (1) o di i; ed Pr 
DPI co eo6 EA to te” 0° "0° DET zi Pez tei -.. 


QI®VIVO 


Figura 3. Una piccola parte dell’“albero dei tentativi”. Ogni nodo rappresenta una casella e ogni ramo la mossa tra 
le caselle rappresentate dai 2 nodi che unisce. 


dell’albero continuerebbero a 
“crescere” all’infinito; in realtà, 
anche trascurando il fatto che dalle 
caselle vicine ai bordi non sono 
possibili 8 mosse, ciò non è così, 
perché dalle mosse materialmente 


possibili dobbiamo escludere quel- 
le che condurrebbero a caselle già 
rappresentate da un nodo prece- 
dentemente raggiunto sullo stesso 
ramo. Così, ad un certo punto, 
proseguendo lungo un ramo, si ar- 


riverà ad un nodo dal quale non è 
possibile proseguire; questo nodo 
rappresenta la casella finale di quel 
particolare percorso effettuato sul- 
la scacchiera (figura 4). A questo 
punto, se il ramo che parte dal no- 


Figura 4. Una piccola parte (circa un trentesimo) dell’albero dei tentativi per una scacchiera 4 x 4. I nodi pentago- 
nali rappresentano le caselle dalle quali non si può proseguire (foglie). 
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do iniziale (radice) e arriva al nodo 
finale (foglia) è lungo n X n nodi 
(dove n è il lato della scacchiera), 
allora tutte le caselle sono state 
toccate e la sequenza di mosse rap- 
presentata dal ramo è una soluzio- 
ne del problema; se, invece, il ra- 
mo è più corto, non è una soluzio- 
ne. 

Quello che il programma deve 
fare è esaminare i rami di questo 
albero per trovare la soluzione del 
problema: l’algoritmo con il quale 
esso svolgerà questo compito è il 
seguente: 


1 Parti dalla radice dell’albero 
(la casella iniziale data) 

2 Se puoi scendere lungo un ra- 
mo non ancora esplorato, vai al 
punto 3; altrimenti vai al punto 5 

3 Scendi al nodo successivo 
non ancora esaminato il più a sini- 
stra possibile 

4 Torna al punto 2 

5 Se il ramo (dalla radice alla 
foglia) è lungo n X n, hai trovato 
una soluzione: stop 

6 Se non puoi risalire (perché ti 
trovi alla radice), non ci sono solu- 
zioni: stop 

7 Risali al nodo precedente e 
torna al punto 2 


L’ordinamento delle mosse, di 
cui ho parlato prima, rende molto 
semplice la scelta del ramo succes- 
sivo da esaminare; infatti basta che 
ogni volta che da un nodo si passa 
al successivo si annoti l’indice della 
mossa fatta: quando si risalirà fino 
a quel nodo, si dovrà esaminare la 
mossa con l’indice immediatamen- 
te superiore. 


Il procedimento illustrato nell’al- 
goritmo esposto può anche termi- 
nare senza aver trovato una solu- 
zione; in tal caso il processo di risa- 
lita dell’albero ci avrà riportato fi- 
no alla radice dopo che si sono esa- 
minati tutti i rami, e quindi si sono 
esaurite tutte le possibili sequenze 
di mosse. 


Prima di passare a considerare 
un altro aspetto del problema, rias- 
sumo brevemente quanto detto fi- 
no ad ora: l’albero dei tentativi è 
molto grande, ma per fortuna il 
programma deve solo memorizzar- 
ne un ramo alla volta, e ricordare 


le decisioni prese ad ogni nodo, 
perché ciò gli è sufficiente per pro- 
seguire lungo il ramo (senza ripas- 
sare per caselle già raggiunte in 
precedenza) o per risalirlo ed im- 
boccare il ramo successivo nel caso 
che sia necessario. 


Alcuni criteri per ridurre il tempo 
necessario a trovare una soluzione 


L’albero dei tentativi è molto 
grande, ed esplorarlo tutto richiede 
molto tempo, come ci si può accor- 
gere nei casi che non hanno solu- 
zione. Fortunatamente si possono 
trovare dei criteri che permettono 
di stabilire a priori quando è im- 
possibile che un certo ramo porti 
alla soluzione, permettendo così di 
non esaminare quel ramo. Illustre- 
rò alcuni di questi criteri che, alla 
prova dei fatti, si sono rivelati mol- 
to vantaggiosi, ma prima vorrei fa- 
re notare una cosa: l’introduzione 
di questi criteri rende più comples- 
so e lungo il processo di decisione 
se imboccare un certo sottoramo 0 
no, tuttavia questa dilatazione dei 
tempi delle singole decisioni è giu- 
stificata dal fatto che, scartando a 
priori molti sottorami, il numero 
totale delle decisioni da prendere si 
riduce considerevolmente. 

Innanzitutto, sono necessarie al- 
cune definizioni: 


e casella libera: è una casella 
non toccata dalla sequenza di mos- 
se che porta dalla radice al nodo 
che stiamo esaminando; 

e casella occupata: casella già 
toccata dalla sopradetta sequenza 
di mosse; 

e vicini di una casella: sono le 
caselle che ne distano una mossa; 

e casella isolata: casella che non 
può più essere raggiunta dal per- 
corso. 


Passo adesso ad enunciare i cri- 
teri: 


1. Se l’effettuazione di una mos- 
sa (occupazione della casella C) la- 
scia un vicino di C senza vicini libe- 
ri, l’unica mossa successiva da 
prendere in considerazione è quel- 
la che occupa quel vicino di C, che 
altrimenti rimarrebbe isolato; inol- 


Figura S. I/ cavallo si trova in B; se 
ora passa in C, lascia la casella D 
senza vicini liberi. Perciò, se D non 
è l’ultima casella del percorso, ora 
il cavallo non deve passare in C (I° 
criterio). 


tre l’unico caso in cui questa mossa 
porta ad una soluzione si ha quan- 
do essa è l’ultima mossa di quella 
soluzione (vedi figura 5). 

2. Se un vicino di C resta con un 
solo vicino libero, lo si occupi subi- 
to; infatti se una soluzione non lo 
occupa adesso potrà occuparlo solo 
con l’ultima mossa, e se esiste una 
soluzione S che lo occuperebbe so- 
lo con la mossa finale, esiste anche 
una soluzione S' che lo occupa 
adesso e che segue a ritroso le 
mosse di S (figura 6). 


Figura 6. // cavallo è passato da B a 
C; D è rimasto con un solo vicino 
libero (E). Allora il cavallo deve 
occupare D, perché se esiste una so- 
luzione S che occupa D come ulti- 
ma casella (via E), esiste anche la 
soluzione S' che occupa subito D e 
ripete all'inverno il percorso di $ 
(2° criterio). 
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Figura 7. Il cavallo è in b; se ora 
passa in c, lascia 3 caselle (v', v'' e 
v''') con un solo vicino libero cia- 
scuno, con la conseguenza che in 
futuro una di queste caselle diverrà 
isolata. Perciò il cavallo non deve 
passare da b a c. 


3. Se due vicini di C,V' e V”’, 
restano con un solo vicino libero 
ciascuno, si giochi subito V', per 
gli stessi motivi del criterio 2. 

4. Se tre o più vicini di C restano 
con un solo vicino libero, è inutile 
proseguire lungo questo ramo, per- 
ché in futuro una di quelle tre ca- 
selle diverrebbe isolata (figura 7). 


L'applicazione di questi semplici 
criteri porta ad un risparmio di 
tempo veramente notevole; la solu- 
zione per una scacchiera 8 x 8 ri- 
portata in figura 2, che è stata tro- 
vata in circa 8 minuti dal program- 
ma che usa questi criteri, non era 
stata trovata in più di 8 ore da una 


versione precedente che non ne fa- 
ceva uso. 


Il programma 


La struttura del problema si pre- 
sta molto bene ad una soluzione di 
tipo ricorsivo, perché le operazioni 
fondamentali da compiere (scende- 
re o risalire lungo un ramo dell’al- 
bero dei tentativi) sono le stesse 
qualsiasi sia il punto dell’albero nel 
quale ci si trovi. Un possibile sche- 
ma a grandi linee del programma 
potrebbe perciò essere quello di fi- 
gura 8. 


A causa delle limitate dimensio- 
ni dello stack del computer, il pro- 
gramma non fa uso di chiamate ri- 
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INIZIALIZZAZIONE 
GOSUB SCENDI 


SUBROUTINE SCENDI 
IF PUOI SCENDERE 


RETURN 


SUBROUTINE SALI 
IF PUOI SALIRE 


RETURN 


Figura 8. 


corsive di subroutine, ma realizza 
lo stesso schema usando delle istru- 
zioni di GOTO. In tabella 1 è spie- 
gato il significato delle variabili più 
importanti usate dal programma, 
che è riportato nel listato 1. Non 
mi dilungo a spiegare nei particola- 
ri il significato delle singole istru- 
zioni; preferisco invece commenta- 
re le due routine grafiche del pro- 
gramma, che consentono di 
“vedere”? il procedimento seguito 
dal calcolatore per raggiungere la 


soluzione. } —. . 
La prima routine utilizza la grafi- 


ca ad alta risoluzione per disegnare 
la scacchiera; dopo di che, durante 
l'esame dei vari rami dell’albero 
dei tentativi, ogni volta che il pro- 
gramma occupa una nuova casella 
la colora in rosso, mentre ogni vol- 
ta che si ritira da essa durante la 
risalita di un ramo, la rende nuova- 
mente bianca. La casella finale, 
una volta raggiunta, viene colorata 
in nero. 

Si riesce facilmente a notare co- 
me la velocità delle singole mosse 
di occupazione delle caselle sia 
maggiore se non si adottano i crite- 
ri discussi in precedenza (per fare 
ciò basta cancellare le istruzioni da 
210 a 280, da 520 a 550, e levare Ja 
condizione su PLAY%(N) nella 
580). In compenso, adottando que- 
sti criteri, sl assiste a “ritirate” del 
programma mediamente più lun- 
ghe e che avvengono in uno stadio 


THEN 

e SCENDI IL RAMO 

e CONTROLLA SE È SOLUZIONE 
(se lo è fermati) 

e GOSUB SCENDI 

ELSE 

e GOSUB SALI 


THEN 
e SALI IL RAMO 

e GOSUB SCENDI 

ELSE 

e NON C'È SOLUZIONE: STOP 


precedente rispetto al programma 
che non usa i criteri. 

La seconda routine rappresenta 
invece la scacchiera con caratteri 
alfanumerici e riempie le varie ca- 
selle via via occupate con il nume- 
ro delle caselle occupate in quel 
momento, rendendo così facile se- 
guire la presenza delle mosse esa- 
minate dal programma. Quando il 


BOARD È la matrice che rappresenta 
la scacchiera; BOARD(i,j) 
= 1 se la casella î,j è occupa- 
ta, = 0 se è libera. 

NEAR NEAR(i,j) contiene il nume- 


ro di vicini liberi della casel- 
la ij. 

MOSSAI e Contengono le coordinate x 
MOSSAJ e y delle caselle via via rag- 
giunte dal percorso in esame 
(MOSSAI(k) = coordinata x 
della kesima casella raggiun- 
ta dal percorso). 
Se PLAY(k) = 1, la Kesima 
mossa giocata lungo il per- 
corso in esame era obbligata 
(a causa dei criteri prima 
spiegati); perciò se il cavallo 
fosse costretto a risalire fino 
alla kesima casella giocata, 
dovrebbe risalire ancora, 
perché in questa situazione 
non avrebbe alternative da 
giocare. 

M M(k) dice quale è stato il nu- 
mero d’ordine della Kesima 
mossa giocata, riferendosi 
alla numerazione di figura 1. 


PLAY 


Tabella 1. Descrizione di alcune 
variabili usate dal programma 


CLEAR 10000 Riserva 10000 byte 
di memoria per le 
matrici usate dal 
programma. 
Introduce la grafica 
ad alta risoluzione, 
con 336 x 256 punti 
indirizzabili sullo 
schermo, e 4 colori. 
COLORG 150 3 5 Sceglie i colori che 
voglio usare (15= 
bianco, 0O=nero, 
3=rosso...). Il colo- 
re dello sfondo è il 
primo scelto (quindi 
il bianco). 

Traccia una retta dal 
punto a,b al punto 
c,d. Il colore della 
retta è e. 

Colora con e un ret- 
tangolo avente come 
vertici opposti di 
una diagonale i pun- 
tia,bec,d. 


MODE 6 


DRAW a,b c,d e 


FILL a,b c,de 


MODE 0 Lo schermo ritorna 
al modo alfanumeri- 
co. 

CUR x,y Sposta il cursore sul- 


lo schermo nel pun- 
to x,y in modo che 
la prossima scritta 
parta da quel punto. 


Tabella 2. Istruzioni particolari del 
Basic DAI. 


programma si ritira da una casella, 
il numero viene cancellato. 

In tabella 2 riporto il significato 
delle istruzioni particolari del Basic 
DAI, per permettere a chi volesse 
una facile traduzione del program- 
ma. 


Risultati e conclusioni 


Come già si è visto, l’introduzio- 
ne dei criteri prima descritti per- 
mette di ridurre il tempo necessa- 
rio a trovare una soluzione, perché 
consente di scartare a priori molti 
rami dell’albero. In figura 9 si può 
ad esempio vedere come viene ri- 
dotto l'albero per una scacchiera 4 
Xx 4. E interessante il confronto 
con la figura 4, nella quale era ri- 
portata una piccola parte dello 
stesso albero. 

I criteri introdotti non sono i soli 
che possono portare ad un così no- 
tevole risparmio di tempo d’esecu- 
zione; il lettore può sicuramente 


Figura 9. Con l'introduzione dei 4 criteri descritti, l'albero da percorrere 
per decidere che non ci sono soluzioni sulla scacchiera 4 x 4 si riduce 
enormemente. Si confronti con la figura 4. 


trovarne altri e migliorare il pro- 
gramma. Ad esempio, una condi- 
zione introdotta per fare diventare 
“rientrante” il giro fatto dal cavallo 
(cioè per fare sì che la casella fina- 
le sia una vicina di quella iniziale) 
ha portato a trovare una soluzione, 
su una scacchiera 8 X 8, in meno di 
4 minuti, contro gli 8 necessari sen- 
za questa ulteriore condizione. 
Una vasta classe di problemi è 
analizzabile e risolubile mediante 
tecniche e ragionamenti simili a 
quelli impiegati in questo articolo 


(ad esempio il problema delle 8 re- 
gine, i problemi di scacchi ecc.). 
Inoltre queste tecniche sono impie- 
gate anche nell’analisi di giochi nei 
quali occorra prevedere possibili 
sequenze di mosse future. Lo sco- 
po dell’articolo non era perciò tan- 
to quello di risolvere il problema 
esposto, quanto quello di analizza- 
re in dettaglio il procedimento ado- 
perato nel risolverlo, e di fornire 
quindi al lettore le basi per poter 
applicare simili metodi nella solu- 
zione di altri problemi. 
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Listato 1. I! programma “il giro del cavallo”. 
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ARIEMO te a a af e a n a a a af a a e a fc af fc a e a e a fe a af ae 


REM «* » 
REM * KNIGHT*S ROUND » 
REM * » 
REM * by GIULIO MORPURGO * 
REM »* * 
REMI MORONE HE NC ALICE AOCNOONEANEACONOONNONCAAC NECA NE 


REN «nn inizializzazione —_——— 
CLEAR 10000:COLORT 8 000 

INPUT "dimensione della scacchiera"5D%* PRINT 
DIM BOARD (D%+3. 0, DX+3, 0), NEAR (D%+3, 0, Du+3. 0) 
G%=D%*DX 

DIM MOSSAI% (6%) , MOSSAJX (6%) » MX (6%) » PLAY (6%) 
MODE 0 

PRINT " Sto inizializzando dei vettori " 

FOR I%=0 TO D%+3:FOR J=0 TO D%+3 

BOARD (1%, J%) =0NEARX (1%, JX) =0 

NEXT JX:NEXT IX 

FOR IX=0 TO 1:FOR K%=0 TO D%+3 

BOARD (1%, K%) = 1: BOARD (K%» 1°) =1 

BOARD (D%+3, 0-1%, K%) = 1: BOARD C(K%, Dx+3. 0-I%) =1 
NEARX (1%; K%) =9 NEAR (K%, IX) =9 

NEAR (D%+3, 0-I%, KX) =9: NEAR (K%, Dx+3. 0-I%) =9 
NEXT KX:5NEXT IX 

FOR 1I%=2 TO D%+1:FOR JX=2 TO D+t1 

FOR K%=-2 TO 2 STEP 4:FOR L%=-1 TO 1 STEP 2 : 
NEAR (1%, J%) 3NEARX (1%, J%) +2. 0-BOARDU (I%+K%, JX+L%) — BOARD (I%+L%, JU+KZ) 
NEXT LU:5NEXT K% 

NEXT JXINEXT IX 

PRINT "Scacchiera grafica o alfanumerica ?<G/A>" 
A=GETC: IF A=0.0 THEN SI 

GRAPHX=1:IF A=ASC("A") THEN GRAPHX=2 

ON GRAPHX GOSUB 1500, 2000 

INPUT "posizione iniziale";E%,F%:PRINT 

IF EX<1 OR FXX1 OR Ex>D% OR FX>D% THEN 160 
N=1. 0: MOSSAT% CN) =E%+ 1: MOSSAJZ (N) =F%+1 
xu=EX+ 1: YA=F%+1 

BOARD (X%, YX) =1 


REM —---- Discesa lungo un ramo _——— 

ON GRAPH% GOSUB 1600.2100 

C1=0. 0:C2=0.0 

FOR I%=-2 TO 2 STEP 4:!FOR J%=-1 TO 1 STEP 2 

NEAR (X%+ 1%, YX+J%) = NEAR (X%+I%, JX+YX) —1.0 

IF BOARD (X%+I%, YX+J%)< >0.,0 THEN 240 

IF NEARX (XX+T%> YX+J%) =0.0 THEN CiscCi+1.0:A%=XX+IX:BX=YX+J% 
IF NEAR (X%+I%, YXa+J%) 31.0 THEN C2=C2+1, 0: TxeXMt IM! Wu=V%+IX 
NEAR (X%+J%, YX+I%) "NEAR (XX+T%, YX+IX)-1.0 

IF BOARD (X%+J%, YX+IX)<>0.0 THEN 260 

IF NEAR (X%+J%, YX+I%) =0.0 THEN Ci1=C1+1, 0: Au=XX+TJ:BX=YX+IX 
IF NEAR (Xx+J%, YX+IX)=1.0 THEN C25C2+1.0: TU=X%+IJ%1 Vu=sVW%+IX 
NEXT JMINEXT IX 

ON (Ci1+1) GOTO 275, 395, 500, 500, 500, 500, 500, 500 

ON (C2+1) GOTO 300, 280, 280, 500, 500, 500, 500,500, 500 
A=T%:BX=V%:GOTO 400 

Mx CN) =1 

ON MX (N) GOTO 320, 325, 330, 335, 340, 345, 350, 355 
Pu=X%X-1:Q%=Y%+2:GO0T0 360 

PuSX4+1:Q%=YX+2:GOTO 360 

Pu=X%+2:30%=YZ+1:GOTO 360 

Pu=XN+2:QAX=Y%-1:GOTO 360 

Pu=X%+1:0Q%=YX-2:GOTO 360 

Pu=xXX-1:Q%=Y%-2:GO0T0 360 

Pu=X%-21Q%=Y%-1:G0T0 360 

Pu=sxXu-2: QU=Y%+1 

IF BOARD (P%, Qu) =0.0 THEN 370 

IF MX (N) =8.0 THEN 500 

MX CN) =MX (N) +1, 0:GOTO 310 

N=N+1.0 

BOARD (P%, Q%) =1 

MOSSA I% (N) =P%: MOSSAJ% (N) =Q% 

Xu=PU: Yu=O% 

IF N=G% THEN 1000 

GOTO 200 


IF NKGX-1 THEN 500 


PLAY (N) =1:N=N+1.0 

BOARD% (A%, B%) =1 

IF N=G% THEN P=A%:Q%=B%X:GOTO 1000 

MOSSA 1% (N) =A%: MOSSAJ% (N) =B%:XM=AXt YVX=B%! GOTO 200 


REM ===—==- Risalita lungo un ramo — ------ (segue) 


Segue Listato 1. 


501 ON GRAPHX GOSUB 1700, 2200 

S10 BOARD (X%, YX) =0: PLAY (N) =0 

520 FOR I%=-2 TO 2 STEP 4:FOR Jz=-1 TO 1 STEP 2 

530 NEAR (X%+1%, YX+J%) "NEAR (X%+I%, YX+JZ)+1,.0 

540 NEAR (X%+T%, YX+I%) 3NEARX X%+J%, YX+I%)+1.0 

550 NEXT JZ:NEXT IX 

560 N=N-1,0:IF N=0.0 THEN PRINT :PRINT "non si puo’"3END 
570 XX=MOSSAT% (N) : YX=MOSSAJZ (N) 

580 IF PLAYZX (N) =1.0 OR MX(N) =8.0 THEN 500 

590 MX CN) =MX (N) +1, 0:GOTO 310 

600 REM -————_____r——mn mmm nu ntocro——en@.1t@ 

999 REM n= Soluzione trovata -------—- 

1000 ON GRAPHX GOTO 1005, 1015 

1005 FILL 1+(P%-2)*20;1+(Q%-2) «20 19+(P%-2)*Z0, 19+(Q%-2) «20 0 
1006 GOTO 1020 

1015 XX=P%:YX=Q%: GOSUB 2100 

1016 COLORT 0 1500 

1017 CURSOR 0,0 

1020 END 

1500 REM ----- Disegno scacchiera grafica ----- 

1501 MODE é:CDOLORG 15 0 35 

1502 FOR IX=0 TO DX 

1503. DRAW 0, IX*20 D%*20, IX*20 0 

1504 DRAW IX*Z0,0 IX*20,DX*20 0 

1505 NEXT Ix 

1506 RETURN 

1507 REM -—---------_-_——_____-__-_________=__----__----- 

1609 0ibegi===—-- Disegno mossa in modo grafico --- 

1601 FILL 1+(XX-2)*20,1+(Y%-2)*20 19+(X%-2)*20,19+(YX-2)*20 3 
1602 RETURN 

1603 REM ---_-—---------____________m____=____- 

1700 REM ---- Cancellazione mossa in modo grafico -—- 
1701 FILL 1+(X%-2)*20,1+(YX-2)*20 19+(X%-2)#20,19+(YX-2)*20 15 
1702 RETURN 

1703 REM --_—————_—_—_—_—___— _____mmedi.o. rocco 
2000 REM --—-—- Disegna scacchiera alfanumerica ---- 

2001 MODE O:PRINT CHR$(12) 

2002 CURSOR 0, DX*2-1 

2005 Bs$="I "3C$="I"+CHR$ (95) +CHR$ (95) +CHR$ (95) +CHR$ (95) 
2006 D$=" "+RIGHT$(C$%,4) 

2007 FOR Z%=1 TO DX:PRINT D$; :NEXT Z%:PRINT 

2008 FOR Zz=1 TO DX 

2010 FOR Wa=1 TO DX:PRINT B$; NEXT WX:PRINT "I" 

2011 FOR W=1 TO DX:PRINT C$;: NEXT WX:PRINT "I" 

2012 NEXT Z% 

2013 RETURN 

2014 REM --_—--__——_——___------_.mn—on—==___- 

2100 REM ---_-—- Disegno mossa alfanumerica -—---— 
2101  CURSOR 1+5*(X%-2), 2*(Y%-1)+1 

2102 PRINT LEFT$(STR$ (N) , 3) 

2103 RETURN 

2104 REM ---__--------nmco_m____-___n___o_coo 
2200 REM ------ Cancella mossa alfanumerica -—---— 
2201  CURSOR 1+5%*(X%-2), 2*(YX-1)+1 

2202 PRINT * " 

2203 RETURN 

2204 REM ----_————______________..___unnmcuncnem 
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Dal Basic al Pascal 


Seconda parte: 


procedure e subroutine 
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sebbene la sua struttura non ne 

incoraggi l’uso. In Basic si chia- 
ma una subroutine con una istru- 
zione GOSUB. Per esempio, GO- 
SUB 1000 farà in modo che il vo- 
stro programma prosegua l’esecu- 
zione dalla riga 1000, continuando 
con le righe successive fino a che 
non incontra un RETURN. A quel 
punto tornerà all’istruzione che se- 
gue immediatamente il GOSUB, e 
riprenderà da lì. 

In Pascal una subroutine si chia- 
ma procedura. Una procedura ha 
un nome che si considera a tutti gli 
effetti come un identificatore, esat- 
tamente come i nomi delle variabi- 
li. Per chiamare una procedura in 
Pascal, basta semplicemente nomi- 
narla. Supponete di avere una pro- 
cedura che trasmette al terminale il 
carattere di controllo per l’azzera- 
mento dello schermo e il posiziona- 
mento del cursore in alto a sinistra. 
Se questo carattere fosse il codice 
ASCII 26, la procedura potrebbe 
essere quella del listato 1. 

Per chiamare questa procedura 
dal programma principale basta 
usare il suo nome (vedi listato 2). 

Il motivo principale per cui si 
usa una procedura, anziché mette- 
re semplicemente una istruzione 
WRITE per azzerare lo schermo è 
che potreste usare la procedura in 
molti posti nel programma. Un al- 
tro motivo, è che è immediato a 
chiunque legga il programma lo 


I Basic permette le subroutine, 


scopo della procedura; le istruzioni 
WRITE richiederebbero una spie- 
gazione della loro presenza. Natu- 
ralmente questo è vero solo se chi 
ha scritto il programma ha usato 
un nome che descrive abbastanza 
bene cosa la procedura fa. 

Se per esempio la procedura si 
chiamasse FATUTTO, si perdereb- 
be la chiarezza. Un terzo motivo 
per cui si usa la procedura è che 
questa può essere facilmente modi- 
ficata, per permetterne l’uso con 
un altro terminale. Si può per 
esempio cambiare il 26 con un 12, 
se il nuovo terminale lo richiede. 
Naturalmente, se una certa proce- 
dura è richiesta in molti posti in un 
programma e se essa è lunga, si ri- 
ducono sensibilmente le dimensio- 
ni del programma facendone una 
procedura. Non dimenticatevi che 
procedura=subroutine. 

Paragonate le stesse istruzioni in 
Basic (listato 3). 


Mentre le istruzioni Pascal si 
spiegano da sole, per rendere chia- 
ra la versione Basic ci vogliono al- 
cune spiegazioni, mentre un pro- 
gramma Pascal è abbastanza chiaro 
anche senza spiegazioni. Prima di 
poter interpretare un programma 
Pascal, tuttavia, bisogna conoscer- 
ne abbastanza per poter riconosce- 
re le parole che non sono istruzio- 
ni, e quindi rendersi conto che si 
tratta di chiamate fli procedure. 


Il passaggio dei parametri alle 
procedure 


Abbiamo fatto solo qualche ac- 
cenno all’uso dei parametri. Ora 
parliamo dell’uso principale del 
passaggio dei parametri in Pascal. 
Nel Basic il suo uso è limitato a 
funzioni come nel caso di 
Y=SOR(A*B). Supponete di voler 
inserire nel vostro programma Ba- 
sic una subroutine che calcoli l’ipo- 
tenusa di un triangolo rettangolo, 
noti i due cateti. Il teorema di Pita- 
gora dice che l’ipotenusa è uguale 
alla radice quadrata della somma 
dei quadrati dei cateti. Supponete 
di usare A e B per rappresentare .i 
cateti e H per l’ipotenuta (vedi li- 
stato 4). 

Vedete che le variabili A, B e H 
vengono usate dalla subroutine. 
Inoltre, è necessario fissare i valori 
dei cateti A e B, e il risultato viene 
restituito nella variabile H. Ora 
supponete che altrove nel pro- 
gramma, le dimensioni dei cateti 
siano rappresentate con due altre 
variabili, per esempio P e Q, e che 
il risultato debba essere contenuto 
in R (listato 5). 

Ci sono tre istruzioni per asse- 
gnare le variabili. Se si potesse ren- 
dere più generale la subroutine, 
queste istruzioni potrebbero essere 
eliminate. In Pascal si può farlo (li- 
stato 6). 

Pascal usa SOR per il quadrato e 
SORT per la radice quadrata. Il 
programma Pascal assume che P, 
Q e R siano state dichiarate varia- 
bili reali all’inizio del programma. 


Parametri formali 


Le variabili indicate tra parentesi 
nella definizione di procedura si 
chiamano parametri formali. Han- 
no significato solo all’interno della 
procedura e si possono considerare 
come variabili “fittizie” alle quali 
saranno sostituite quelle vere più 
avanti nel programma. 

Me variabili fra parentesi (nel 
programma principale) possono es- 
sere dei nomi di variabili come in 
questo caso, delle espressioni come 
P+3.7, o dei numeri come 5.3. Ci 


Listato 1. 
FRUOCEDURE 
BEGIN 
WELHE 
END: 


CH 26) 


Listato 2. 


FULL 450 SCHERMO 


FU ISU i SUHERMO: 


METTE * SCHERMO AZZERATO” 14 


Listato 3. 
L00 GOSHE 1500z 
Lio PRINT"ORA 


1000 PRINT 
1016 RE FURN 


CHE (T6) 


Listato 4. 


Joi H= SOR (SA*A+B*B) 


Listato 5. 
Lig 
Listato 6. 


PROCEDURE IFOTENUSA 
SEGGI 


CALDE 


REM AfZZERA LO SCHERMO 
LO SCHERMO VIENE AZZERATO" 
#80 REM QUESTA sSUBROLI [NE 


AZZERA LO SCHERMO 


RETUEN 


REAL:VSR Hi REAL): 


HisSURT (SORA) +50R Bi) 3 


END: 
COLUI 
BEGIM 
IFUTENUSA 
END 


(P_Q,FR)5 


sono tre variabili nella definizione 
della procedura, e tre gliene ven- 
gono passate dalla chiamata. I va- 
lori delle tre espressioni fra paren- 
tesi separate da virgole sono passa- 
ti ai tre parametri formali nella 
procedura. Qui viene il bello. Il 
terzo parametro nella definizione 
della procedura è preceduto dalla 
parola VAR. Questo dice al compi- 
latore di non passare il valore con- 
tenuto nel terzo parametro della 
chiamata alla procedura, ma di 
passare la sua posizione, cioè il po- 
sto dove il risultato sarà immagaz- 
zinato. Sarebbe dunque sbagliato 
esprimere il terzo parametro come 
qualcosa di diverso da un nome per 
variabile. I parametri VAR nella 
procedura si usano per dare i risul- 
tati della procedura. Naturalmente 
ciò significa che il contenuto della 
terza variabile nell’elenco dei para- 
metri verrà cambiato come risulta- 
to della procedura. 

Forse è ovvio, ma per comple- 


SUITO 1L FPRUGRAMMA FRINCIFALE: 


tezza dirò che i parametri formali 
nell'elenco dei parametri della pro- 
cedura prendono i valori dei para- 
metri della chiamata nell’ordine in 
cui questi sono elencati. Cioè, i pa- 
rametri della chiamata devono es- 
sere nello stesso ordine e dello 
stesso numero e tipo dei parametri 
formali. 

La procedura riceve due variabili 
(i parametri del tipo non VAR si 
chiamano parametri di valore) e un 
indirizzo al quale mettere i risultati 
del calcolo. I nomi dei parametri 
nella procedura IPOTENUSA han- 
no un significato solo all’interno di 
quella procedura, e delle variabili 
con gli stessi nomi possono appari- 
re altrove nel programma senza 
conflitto. Per chiarire ulteriormen- 
te, vedete nel listato 7 delle chia- 
mate valide per la procedura IPO- 
TENUSA. 

Queste sono valide se le dichia- 
razioni esatte delle variabili sono 
già state fatte in precedenza. Se le 
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parentesi quadre non fossero state 
usate per distinguere gli indici della 
matrice, questi elenchi di parame- 
tri avrebbero potuto facilmente es- 
sere scambiati per quelli. 


Le funzioni 


Nel Basic si possono definire 
delle funzioni. Anche nel Pascal. 
Nel Basic la definizione funziona 
pressapoco così. 


10 DEF FNA(X)=SIN(X)*xCOS(X) 
Più tardi nel programma: 
150 Y=FNA(A — .3) 


Nel Pascal, potremmo definire 
una funzione per fare la procedura 
IPOTENUSA, operando come nel 
listato 8. 

Questo semplifica la definizione 
di una funzione e di una chiamata 
ad essa. Si possono usare le funzio- 
ni quando il risultato è un valore 
unico. La definizione di una fun- 
zione si differenzia da quella di una 
procedura solo in quanto dopo l’e- 
lenco dei parametri si trova una di- 
chiarazione che specifica il tipo di 
valore che la funzione deve dare 
come risultato, in questo caso 
REALIE). Notate che mn due pa- 
rametri sono stati passati. Dentro il 
blocco della FUNCTION ci deve 
essere una dichiarazione che colle- 
ghi il valore calcolato dalla funzio- 
ne con l’identificatore che è il no- 
me della funzione. La chiamata 
non può essere solamente IPOTE- 
NUSA (A,B) perché non è stata 
specificata alcuna variabile per il 
risultato. 


Notazione uniforme 


Le funzioni dichiarate dall’ope- 
ratore si chiamano nello stesso mo- 
do nel quale si chiamano quelle 
che fanno parte del Pascal. Ho un 
sistema Pascal che non ha le fun- 
zioni trigonometriche. Ho scritto 
da me queste funzioni. Per usarle, 
la chiamata è uguale a come sareb- 
be stata se il Pascal le avesse avute, 
Y:=SIN(X), per esempio. I pro- 
grammi Pascal scritti con le mie 
funzioni possono essere compilati 
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usando un compilatore con le fun- 
zioni trigonometriche, semplice- 
mente togliendo le funzioni da me 
aggiunte. Il fatto che le funzioni 
date dall'operatore e quelle già in- 
corporate usano le stesse chiamate 
non è casuale. Questo aspetto si 
chiama notazione uniforme. La no- 
tazione uniforme fa sì che il Pascal 
diventi un linguaggio “estensibile”. 
Questo pregio insieme con il fatto 
che i parametri formali facenti par- 
te di una procedura (e le variabili 
usate all’interno delle procedure) 
possono avere un nome qualunque 
senza creare problemi per altri no- 
mi usati in altri posti nel program- 
ma permette alla gente che usa il 
Pascal di crearsi un “biblioteca” di 
procedure che usa spesso. Queste 
possono essere messe assieme per 
generare degli altri programmi 
quasi senza cambiamenti (a meno 
che non ci siano due procedure che 
per caso hanno lo stesso nome). 
Un programma scritto bene in 
Pascal adopera molte procedure e 
funzioni in più di un normale pro- 
gramma Basic. Sebbene questa 
non sia una conseguenza necessaria 
della struttura né del Basic né del 
Pascal, di solito è così perché colui 
che usa il Pascal assorbe un po’ 


Listato 7. 


dello spirito dell’autore del lin- 
guaggio. La maggior parte dei libri 
di testo sul Pascal mettono in rilie- 
vo anche la programmazione strut- 
turata e la modularità dei program- 
mi, cose che sono tutte facilitate 
dall’uso del Pascal, anche se sono 
certamente applicabili ad altri lin- 
guaggi, Basic compreso. 


Gli operatori logici 


Basic e Pascal sono molto simili 
per quanto riguarda la scelta dei 
simboli per gli operatori logici di 
paragone. Vengono usati i simboli 
<, >, € =, e tutte le combinazioni 
che nel Basic sono valide lo sono 
anche nel Pascal. L’unica differen- 
za sorge quando si tratta delle con- 
dizioni composte, per esempio in 
una dichiarazione IF-THEN. Nel 
Basic, questo sarebbe permesso. 


IF A>B AND C>D THEN... 


Nel Pascal, ogni condizione deve 
essere messa fra parentesi come in: 


IF (A>B) AND (C>D) THEN... 


Tuttavia, se una delle condizioni 
è una variabile BOOLEAN, (ricor- 
date che nominare una variabile 


[FUTENUSA {A+3,B-7, VALORE) 3 
[IFOTENUSA (3,9,4,762,RISFOSTA); 
IFOTENUSA (SIN) +, ARCTAN(2.7).H)s 


Listato 8. 
FUNCTION 
BEGIN 


IPOTENUSA ‘A,B: 


REAL): REAL: 


IFOTENUSA:=SORT (59k (A) +50R(B)); 


END: 


Kiss IPOTENUSA ‘FP.0); 


Listato 9. 


VAR 


SETTIMANA: ARRAY DOM, 


GIORNO: =DOM5 


WHILE (GIORNO: =S6E) 


BEGIN 


- SAB OF BOOLEAN: 


AND (MESE=MARZO) DO 


IF_STATOSMICHIGAN THEN SETTIMANA GIORNO 


a =FALSE 5 


IF STATOSARIZONA THEN SETTIMANA GIORNO 


:=TRUE: 


GIORNO: =SUCC (GIORNO) + 


END 


Listato 10. 


FOF GIORNO:=DOM ru 
BEGIN 

ISTRIIZIONI; 
END: 


3AB DO 


BOOLEAN implica la sostituzione 
del suo valore), non deve essere 
messa fra parentesi: 


IF ALPHA AND (C>D) THEN... 


Operatori aritmetici 


Tutti gli operatori aritmetici 
standard (*, /, + e —) si usano in 
maniera identica nel Pascal e nel 
Basic, e le regole di precedenza de- 
gli operatori del Basic sono appli- 
cabili anche al Pascal. Cioè la mol- 
tiplicazione e la divisione hanno la 
precedenza rispetto alla somma e 
alla differenza. Poiché il Pascal di- 
stingue fra le variazioni reali e inte- 
re, ci sono altri due operatori nel 
Pascal. DIV si usa per dividere con 
risultati interi. La risposta non è 
approssimata, bensì troncata, nello 
stesso modo in cui funziona la fun- 
zione INT nel Basic. 3 DIV 4 dà co- 
me risposta 0, 4 DIV 3 dà 1. Assie- 
me a questo operatore per dividere 
con risultati interi, c'è un operato- 
re che dà il resto intero. Si chiama 
MOD. 4 MOD 3 fornisce il resto 
dopo la divisione cioè 1. 12 MOD 
7 è S. Potrebbe essere di aiuto in- 
dicare che A DIV B * B + A MOD 
B = A. Per la divisione normale si 
usa la sbarra. 


L’aritmetica mista 


Poiché il Basic distingue fra le 
variabili reali e intere, potreste 
aspettarvi della confusione quando 
questi due tipi di variabili vengono 
mescolati in un’espressione aritme- 
tica. Pascal è molto amichevole in 
queste circostanze. E permessa 
qualunque combinazione per la 
quale non vada persa dell’informa- 
zione. Cioè, si può dare un valore 
intero a una variabile reale oppure 
usare una costante intera in un’e- 
spressione la quale usa delle varia- 
bili reali. Nel Pascal, la cifra 2 che 
appare in un’espressione è compi- 
lata come un valore intero mentre 
2.0 è compilato come valore reale. 
REAL/2 è un’espressione valida. 
Pascal converte l’intero in un nu- 
mero reale e il risultato sarà un nu- 
mero reale. Contrariamente, se si 
cercasse di dare un valore reale a 
una variabile intera, e ciò avesse 
successo, la parte frazionaria della 
cifra sarebbe persa. Pascal vi co- 
stringe a pensarci e vi dà due scelte 
che riguardano il da farsi per la 
parte frazionaria. Si può dare un 
valore reale a una variabile intera 
come: 


VARIABILEINTERA:= 
TRUNC(VARIABILEREALE); 


oppure come 


VARIABILEINTERA:= 
ROUND(VARIABILEREALE); 


È evidente ciò che ognuna di 
queste dichiarazioni comporta. 
TRUNC semplicemente butta via la 
parte frazionaria del valore del nu- 
mero reale, e ROUND arrotonda al 
valore intero più vicino. Voi dove- 
te solo scegliere quale usare. Il 
compilatore segnerà un errore se 
dimenticherete di usare una delle 
due. 


Le funzioni standard 


Il Pascal e il Basic condividono 
alcune funzioni standard. Poiché in 
alcuni casi i nomi differiscono leg- 
germente, compaiono nella tabella 


qui sotto. 

Basic Pascal 

ABS(X) ABS(X) 

ATN(X) o ARCTANI(X) 

ATAN (X}) 

CHR$(X) CHR(X) 

COS(X) COS(X) 

LOG(X) (logaritmo) LN(X) (logaritmo 
base 10) base e) 

SIN(X) SIN(X) 

SOR(X) (radice SORT(X) (radice 
quadrata) quadrata) 

SOR(X) (numero al 
quadrato) 
EXP(X) EXP(X) 


TO 


Pascal ha alcune funzioni proprie 
che bisogna definire. EOF(X) è un 
controllo per la condizione di fine 
file. Essa dà come risultato una 
BOOLEAN TRUE o FALSE. 
EOLN(X) è un controllo per la fine 
della riga. Quando legge le cose in- 
trodotte da un file o dal ni pi 
EOLN(X) dirà TRUE se l’ultimo ca- 
rattere letto era un return. ODD(X) 
sarà TRUE se l’argomento (un va- 
lore, un’espressione o una variabile 
intera) è dispari. VI ricordate la 
nostra definizione del tipo di data 
GIORNO DELLA SETTIMANA? 
La variabile GIORNO che era defi- 
nita poteva assumere i valori 
(DOM,LUN,MAR,MER,GIO,VEN- 
,SAB). ORD(MAR) darebbe 2. 
MAR è il terzo valore dell’elenco, 
e quindi il 2 sembra strano all’ini- 
zio, ma ORD(DOM) sarà 0. Anche 
PRED(X) e SUCC(X) si occupano 
di variabili scalari. PRED significa 
predecessore. SUCC(MAR) sareb- 
be MER. SUCC è per successore. 
Sebbene non ci sia un’analogia di- 
retta nel Basic per queste funzioni, 
forse sarebbe di aiuto immaginare 
un vettore stringa dei nomi dei 
giorni. Poi se A$(X) era MAR, l’a- 


TELEMATICA 


Dal viewdata all'office automation 


Tutti oggi parlano di telematica, di so- 


nalogo di PRED(X) sarebbe 
A$(X—1) ossia LUN e l’analogo di 
SUCC(X) sarebbe A$(X+1) ossia 
MER. Notate che PRED(DOM) dà 
un messaggio di errore, così come 
lo fa SUCC(SAB). Forse un esem- 
pio di come queste cose potrebbe- 
ro essere usate aiuterebbe (vedi li- 
stato 9). 

Questo ciclo eseguirebbe l’ope- 
razione per ogni giorno della setti- 
mana. Produce anche un messag- 
gio di errore. Vedete perché? 
Quando GIORNO arriva a SAB ed 
è aumentato da 
GIORNO:=SUCC(SAB); non c’è 
un successore di SAB. Come pos- 
siamo evitare questo problema? 
Vedremo più avanti. Nel frattem- 
po, un metodo che funziona bene è 
quello del listato 10. 


Conclusione 


Ormai cominciate a capire. Il 
Pascal ha quasi tutto ciò che ha il 
Basic, e (di solito) ne ha di più e di 
migliore qualità. Forse cominciate 
a capire i commenti fatti nella pri- 
ma parte. Ora probabilmente riu- 
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scirete a vedere come il Basic è sta- 
to semplificato per renderlo facile 
da imparare. Molte decisioni veni- 
vano prese automaticamente dal 
Basic, di solito perché la persona 
che programmava non aveva una 
scelta, ma questo permetteva al 
programmatore alle prime armi di 
concentrarsi sul suo programma 
senza dover passare lunghe setti- 
mane per imparare tutti i dettagli. 
Il Pascal vi dà molti più modi per 
fare le cose e permette al program- 
ma di essere una rappresentazione 
molto migliore del problema del 
mondo reale che state risolvendo. 
A causa di questo, il programmato- 
re deve prendere molte decisioni in 
più riguardo ai tipi di variabili. An- 
che a causa di questo, il program- 
matore può usare più fantasia per 
rendere il suo programma più com- 
prensibile agli altri per mezzo di ti- 
pi di dati e nomi di variabili più si- 
gnificativi. Vedrete ancora cose co- 
sì nelle parti seguenti e comincere- 
te ad apprezzare la chiarezza di un 


programma Pascal scritto in modo 
corretto. 


new 


Riccardo Giocksmann 


cietà dell'informazione, di banche da- 
ti 
Ma cosa è la telematica? Un insieme 
di servizi di videoinformazione e tra- 
smissione di dati e testi. Immanzitutto la 
videoinformazione. Essa rappresenta 
un servizio che, utilizzando le reti telefo- 
niche pubbliche. permette ad un 
qualsiasi utente, dotato di un televiso- 
re a colori adatto, di richiedere e rice- 
vere informazioni memorizzate su op- 
portune banche di dati (Videotel e Te- 
levideo). Poi vi sono i servizi pubblici 
per la trasmissione di testi scritti da ter- 
minale a terminale ed il fac-simile. Essi 
sono basilari, fra l'altro, per la realizza- 
zione della “posta elettronica” 
Le applicazioni della telematica sono 
infinite ed in parte ancora da scoprire. 
Essa è, innanzitutto. un nuovo e poten- 
te “medium” nel campo della comu- 
nicazione e dell'informazione. ma è 


anche lo strumento principale che ri- 
voluzionerà l'organizzazione e la pro- 
duttività del lavoro di ufficio, per realiz- 
zare quello che si chiama “office auto- 
mation”. 


eg itbro intende dare un impulso 
sio fioge Gi enzo della telematica, e si 
Lcd DIL al lettore un panora- 
a ‘emi connessi con questa 
disciplina e coni relativi j li- 
cativi. Le caratteristi ugenne 
ne fanno siche il » e CARON 
re for Olume possa propor- 
si indifferentemente all'esperto EDP e 
di organizzazione, quanto allo studio- 
so che si accosta per la prima volta a 
questa materia: l'esperto troverà un si- 
curo riferimento per la risoluzione di 
problemi teorici e pratici, Mentre lo stu- 
dioso troverà, in una forma organica, i 
principi fondamentali indispensabili 
per la conoscenza delle varie proble- 
matiche. 
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Telematica e suo sviluppo - Evoluzione 
dele telecomunicazioni perlo sviluppo 
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sisterna videotex - Sviluppi del vi ideotex 
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luppo delle comunicazioni - Applica- 
zioni della Telematica - Comunicazio. 
ni di massa e aspetti xa 
e giuridici. socio-economici 


Potete acquistare il suddetto 
libro nelle migliori librerie oppu- 
re scrivendo direttamente a: 
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ivisione Libri - Via Rosellini 
20124 Milano che 
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pompa che muove il sangue 

(che trasporta ossigeno e nutri- 
mento ai muscoli e ritira diossido 
di carbonio e prodotti di scarto). 
Ci sono due principali controlli del 
cuore: quello nervoso e la cosid- 
detta “legge di Sarling” del cuore. 

Il controllo nervoso del cuore è 
mediato dal sistema nervoso sim- 
patico e parasimpatico. Il sistema 
simpatico passa attraverso la spina 
dorsale, ha delle sinapsi in un 
gruppo chiamato gangli, e quindi 
continua a innervare il cuore. Se 
eccitate queste fibre stimolano il 
battito cardiaco (tachicardia) a se- 
conda della forza della contrazione 
(controllata alterando la contrattili- 
tà miocardiale). 

Le innervazioni parasimpatiche 
passano per il nervo craniale X, 
detto vago, che ha origine in una 
parte del midollo detto centro va- 
somotorio. L’inibizione del nodo 
seno-atriale, all’inizio del battito, 
rallenta il cuore (brachicardia). 

Queste due vie nervose control- 
lano il ritmo cardiaco per periodi 
relativamente brevi. Per esempio, 
la sveglia suona e voi saltate giù 
dal letto. Che cosa fa in modo che 
il sangue venga pompato al cervel- 
lo e non ai piedi? 

Molti sono i riflessi che inviano 
informazioni nervose’ al cervello. 
Uno di questi è il barorecettore. 
Certi recettori nel sistema circola- 
torio, come quelli situati nella ca- 


I cuore funziona come una 


rotide e nell’aorta, sono sensibili 
alla pressione; quando la pressione 
del sangue si abbassa troppo, i loro 
impulsi diventano meno frequenti: 
ciò significa che la pressione è 
troppo alta e il cervello farà in mo- 
do di diminuirla. 

I nervi di accelerazione cardiaca 
secernono noradrenalina e la so- 
stanza midollare surrenale secerne 
adrenalina, aumentando il ritmo 
cardiaco e la pressione sanguigna. 
Il nervo vago secerne acetilcolina, 
che invece rallenta il ritmo cardia- 
co. 
La legge di Sarling del cuore è 
un approccio meccanico: dice che 
tutto il sangue che arriva al cuore 
deve lasciarlo. Se il ritorno venoso, 
cioè la quantità di sangue che arri- 
va al cuore attraverso le arterie, 
aumenta, aumentano pure il ritmo 
cardiaco e la pressione sanguigna: 
allora il cuore deve pompare tutto 
questo sangue, altrimenti le vene si 
dilaterebbero molto presto. Questo 
è un riflesso molto importante per 
il controllo nel lungo periodo dei 
battiti cardiaci. 

I polmoni hanno il compito di 
scambiare i gas usati del sangue 
con gas nuovi presi dall’aria. L’uni- 
tà funzionale del polmone, alveolo, 
ha la forma di un piccolissimo 
grappolo. Una membrana sottilissi- 
ma circonda gli alveoli; essa ha la 
proprietà di diffondere il diossido 
di carbonio dai capillari agli alveo- 
li; l'ossigeno, al contrario, diffonde 


Ii 


dagli alveoli ai capillari. Una volta 
nel sangue l’ossigeno viene traspor- 
tato ai tessuti dall’emoglobina, 
mentre il diossido di carbonio vie- 
ne riportato indietro. 

La distribuzione del sangue cam- 
bia a seconda dei bisogni. Quando 
si mangia, ad esempio, vengono ir- 
rorati molto di più lo stomaco e il 
fegato; quando si corre, invece, la 
quantità di sangue in questi organi 
si riduce, mentre aumenta incredi- 
bilmente quella che va ai muscoli. 
Di solito le vene, il fegato e la mil- 
za servono come riserva di sangue 
per quando se ne ha bisogno. Il 
cervello, invece, riceve costante- 
mente il 25% del sangue, indipen- 
dentemente dall’attività che si sta 
svolgendo. 


Gli effetti dell’esercizio fisico 


Quando si inizia un esercizio fisi- 
co, di solito, aumentano un po’ il 
ritmo cardiaco e la pressione san- 
guigna, poiché aumenta molto la 
quantità di sangue che ritorna al 
cuore (vengono utilizzate le riserve 
di sangue). Anche la frequenza di 
respirazione influisce sul ritmo car- 
diaco. Man mano che si va avanti 
col lavoro, poi, anche il sistema 
nervoso inizia ad avere un ruolo 
nel controllo dell’affluenza del san- 
gue ai muscoli, togliendolo da or- 
gani come il fegato e lo stomaco 
(questo processo si chiama deriva- 
zione del sangue). La sostanza mi- 
dollare surrenale ha ora il compito 
di secernere adrenalina, che au- 
menterà ancora la frequenza car- 
diaca e causerà la vasocostrizione 


dei vasi sanguigni periferici. Au- 
mentando anche la derivazione, 
come si può vedere, sono molti i 
meccanismi che incrementano l’af- 
flusso del sangue ai muscoli per 
portare ossigeno e nutrimento e ri- 
tirare i rifiuti. 

Il corpo umano è molto pigro e 
lavora e migliora la propria mecca- 
nica e la capacità dei propri organi 
solo se costretto. Se il corpo è sot- 
toposto a pochi sforzi, si abituerà a 
questo stato di calma. Se invece es- 
so è sottoposto a un’attività conti- 
nua, si adatterà, nei limiti del pos- 
sibile, migliorando le sue funzioni. 

Durante un esercizio, il cuore ri- 
sponde agli sforzi aumentando la 
frequenza e l’intensità di ogni con- 
trazione (in modo da assicurare un 
più completo svuotamento dei ven- 
tricoli). L'aumento della frequenza 
cardiaca può passare da 40 a 200, 
cioè aumentare del 500%. Per 
quanto riguarda la quantità di san- 
gue pompata in ogni contrazione, 
invece, l'aumento è minore e si ag- 
gira normalmente intorno al 10- 
35%. In effetti quando la frequen- 
za cardiaca supera i 180 battiti al 
minuto, il volume del sangue pom- 
pato diminuisce, perché il cuore 
non ha il tempo per riempirsi com- 
pletamente prima della successiva 
contrazione. In atleti bene allenati, 
la gettata cardiaca (volume pompa- 
to per frequenza) può aumentare 
fino a sei-sette volte durante eser- 
cizi molto faticosi. 

Nel lungo periodo il cuore diven- 
ta più forte. Le pareti dei ventricoli 
si ispessiscono, fornendo più po- 
tenza muscolare per mandare il 
sangue nell’aorta. Così il cuore non 


deve battere tanto spesso per forni- 
re abbastanza sangue al corpo. 

Il ritmo cardiaco a riposo di mol- 
te persone (anche se non di tutte) 
diminuisce dopo pochi mesi di 
esercizio regolare. Quando sono in 
forma il ritmo cardiaco si stabilizza 
sui 40-45 battiti al minuto, ma tor- 
na a 65-70 dopo poche settimane di 
inattività. 

Per rilevare il vostro ritmo car- 
diaco, potete usare sia il program- 
ma presentato che un orologio. 
Mettete una o due dita sul polso 0, 
ancora meglio, sulla carotide, sul 
collo vicino alla trachea. Contate il 
numero di battiti in 10 secondi e 
moltiplicate per sei. Per conoscere 
il ritmo cardiaco a riposo, bisogne- 
rebbe misurarlo la mattina prima 
di alzarsi. 

Bisogna comunque prendere del- 
le precauzioni. Ad esempio correre 
può far male a persone che non 
fanno dello sport. Infatti affatica 
molto il cuore e il sistema circola- 
torio, e anche i muscoli, i tendini e 
i ligamenti. Per questo bisogna 
sempre riscaldarsi prima di correre 
ed evitare di smettere di correre 
improvvisamente. Questo serve ad 
impedire l’insorgenza di crampi, 
cosa che succede quando ci si sot- 
topone ad uno sforzo breve ed in- 
tenso. Per evitare la maggior parte 
dei problemi che hanno i corridori 
basta seguire un buon programma 
di riscaldamento e raffreddamento. 
Chi corre meno di 60 km alla setti- 
mana, di solito ha un ritmo cardia- 
co che supera i 150 battiti al minu- 
to durante la corsa, ma non fa mi- 
gliorare la propria forma superare i 
180. 


LS DIS 


120 IF HRUISO 
ELSE FRINT"VO BENE, 
130 END 


VELI EI 


IRSO 


Listato 1. Programma per calcolare i parametri aerobici di una corsa. 
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MISE EMI 


du {EMi"sD 

do 
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Analisi statistica 


Consideriamo ora l’analisi delle 
serie temporali mediante medie 
mobili e autocorrelazione. L’auto- 
correlazione è semplicemente la 
correlazione di una serie temporale 
con se stessa. Ma può una serie 
temporale avere un’alta correlazio- 
ne con se stessa? 

Una serie temporale è una colle- 
zione di dati, raccolti in vari istanti 
nel tempo. Un ECG ad esempio 
(elettrocardiogramma) rileva la 
frequenza cardiaca (e i vettori elet- 
trici) e produce un insieme di dati, 
ossia una serie temporale. Anche 
un grafico dei prezzi di borsa in un 
determinato periodo di tempo è 
una serie temporale. Due sono i 
più frequenti problemi che si pon- 
gono sulle serie temporali: 

e esiste una caratteristica di perio- 
dicità (stagionale) nelle serie?; 
e esiste una tendenza generale? 

L’autocorrelazione determina le 
fluttuazioni periodiche delle serie 
temporali; le medie mobili elimina- 
no le fluttuazioni periodiche e rile- 
vano la tendenza generale. In que- 
sto senso le due funzioni sono com- 
plementari. Affrontiamo per prima 
l’autocorrelazione. 

Se immaginiamo che una serie 
temporale abbia due stati (0 e 1) e 
ne visualizziamo i valori (lo stato 0 
è rappresentato da uno spazio 
bianco), avremo qualcosa come lo 
schema di figura 1. Se vogliamo ef- 
fettuare una correlazione, dobbia- 
mo allineare una serie con l’altra e 
confrontarne gli stati. Se, per un 
tempo dato, ambedue sono 
“accesi” o ambedue sono “spenti”, 
si aggiunge un 1 alla somma di cor- 
relazione; altrimenti si aggiunge 
uno 0 (vedi figura 2). 

Naturalmente questa è una cor- 
relazione perfetta, come ci aspetta- 
vamo. Ricordiamo che le equazioni 
per le correlazioni sono: 
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L’autocorrelazione è solo un ca- 
so particolare della correlazione 
prodotto-momento. Da queste 
equazioni possiamo vedere che la 
funzione di autocorrelazione, poi- 
ché X e Y hanno lo stesso valore, 
si riduce all’unità. 

Ma qualcosa di interessante av- 
viene spostando le serie di bit, co- 
me in figura 3. 

Ora non abbiamo più una corre- 
lazione perfetta! Facciamo una co- 
pia della serie temporale originale 
e sommiamo una costante al tempo 
per ogni intervallo. Guardiamo co- 
sa succede (figura 4) se la spostia- 
mo ulteriormente. La spostiamo e 
ritrovamo la correlazione perfetta. 
Cosa è successo? 

Lo spostamento che abbiamo ef- 
fettuato sulla serie è chiamato spo- 
stamento di fase della serie stessa. 
Nell’autocorrelazione si mette in 
correlazione una serie con se stes- 
sa, ma aggiungendo diversi sposta- 
menti di fase alla correlazione per 


scoprire elementi di periodicità nei 
dati. Normalmente l’equazione per 
l’autocorrelazione ha un formato 
leggermente diverso rispetto alla 
normale equazione di correlazione, 
perché si correla una serie tempo- 
rale con se stessa, ma a differenti 
spostamenti di fase: 


em=L+ Mi» 


Possiamo vedere che la funzione 
di autocorrelazione @(p) (in cui p è 
lo spostamento di fase), è una fun- 
zione dello spostamento di fase. 
Cambiando lo spostamento di fase 
si possono definire le fluttuazioni 
periodiche nei dati. 

Il programma del listato 2 con- 
trolla la vostra frequenza cardiaca 
e poi ne effettua l’autocorrelazio- 
ne. L’output sullo schermo è un 
istogramma, chiamato autocorrelo- 
gramma. Poiché la frequenza car- 
diaca è discretamente regolare, si 
può notare un picco alla frequenza 
cardiaca fondamentale, ma si può 
notare anche un secondo picco, più 


XI) +X() +. + Xn), X(2)+ XD) + ...+X(n +1), XGB)+X(4)+...+X(n+2),,., 
N 


N 


N 


Figura 5. 
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o meno sui venti battiti al minuto. 
Ciò è causato dal ritmo respirato- 
rio che influenza la frequenza car- 
diaca. Poiché anche questo è perio- 
dico, si può trovare un altro picco 
più lontano dal centro. 

Spesso l’autocorrelogramma vie- 
ne visualizzato con spostamenti di 
fase solo positivi, poiché è simme- 
trico rispetto a p=0. i . 

Non vi è ragione per cul non Sl 
possa effettuare un’autocorrelazio- 
ne con funzioni reali, continue, co- 
me ad esempio i prezzi delle merci. 
La funzione di autocorrelazione dà 
essenzialmente le stesse informa- 
zioni della trasformata di Fourier 
discreta, benché in formato diffe- 

rente. 

Le medie mobili fanno l’opposto 
dell’autocorrelazione, eliminando 
le fluttuazioni periodiche con una 
specie di livellamento dei dati e 
evidenziando una tendenza genera- 
le priva di periodicità. Le medie 
mobili eliminano solo le periodicità 
che si vogliono eliminare: è come 
passare i dati di una serie tempora- 
le attraverso un filtro, per pulirla 
dai rumori o dalle informazioni 
non desiderate. Questo filtro nella 
realtà è chiamato filtro passa- 
basso. 

. Se abbiamo un insieme di nume- 
ri X(1), X(2), X(3),... si definisce 
media mobile di ordine N la suc- 
cessione delle medie mostrata in fi- 
gura 5. Se si pone Y=M(X) (la se- 
rie Y(i) è la media mobile della se- 
rie X(i)), la serie Y viene livellata, 
poiché ogni numero della serie X 
viene sostituito con la media arit- 
metica dei dati da i a (i+n—-1) del- 
la serie X. Ciò ha proprio l’effetto 
di filtrare le fluttuazioni periodiche 
con frequenza più alta del filtro 
(N). In questo modo il filtro delle 
medie mobili riduce l'ammontare 
delle variazioni presenti in un in- 


50 REM AEROBICA 
609 G0T0 9000 

63 CLEAFRO 30€ 
67 DEFUSR=É 
720 DEFINT P.I,2s 
80 Uls="##### 
90 CLS PRINT 


H# . ##H### 
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TAB (150) "CONTROLLO 


sieme di dati, in particolare le flut- 
tuazioni periodiche con una fre- 
quenza più alta dell’ordine della 
media mobile. Questo processo ri- 
duce il numero dei dati in relazione 
all’ordine della media mobile (nu- 
mero dei dati originali-ordine della 
media mobile). 

Il programma del listato 2 racco- 
glie i dati della serie temporale dei 
vostri battiti cardiaci e ne trova, 
mediante l’autocorrelazione, le 
fluttuazioni periodiche e, mediante 
le medie mobili, la tendenza gene- 
rale. Vi devono essere due fluttua- 
zioni periodiche, come si vede nel- 
l’autocorrelogramma, una dovuta 
alla frequenza del battito cardiaco 
stesso e un’altra dovuta all’influen- 
za dell’inibizione respiratoria di ri- 
torno sulla frequenza cardiaca. 

Battete RUN e sullo schermo 
appariranno le istruzioni per utiliz- 
zare il programma. La routine in 
linguaggio macchina contiene un 
contatore che parte quando preme- 
te il tasto ENTER. Quindi memo- 
rizza il valore del contatore e si 
parte. Quando premete il tasto 


“freccia in giù” la routine inter-. 


rompe il contatore. Essa usa la va- 
riabile VARPTR per trovare il vet- 
tore integer Z(i) e vi memorizza 1 
valori. La coppia di registri HL (e 
la funzione USR) contengono il va- 
lore del numero di volte che avete 
premuto il tasto ENTER. 

Rilevate la vostra frequenza car- 
diaca come descritto prima e ogni 
volta che sentite un battito preme- 
te il tasto ENTER. Rilevate alme- 
no 100 battiti; dovrete fare alcuni 
tentativi per imparare. Non tenete 
premuto a lungo il tasto: la routine 
in linguaggio macchina aspetta solo 
15/100 di secondo prima di esplora- 
re di nuovo la tastiera. Premete il 
tasto e lasciatelo andare. Ogni vol- 
ta che premete il tasto apparirà un 


Listato 2. Programma che raccoglie i dati della serie temporale dei vostri battiti cardiaci. 


DIM B{(60) ,Z(Z00),Y(Z00) XK (200) 


44, #####" 
DEL CUORE" 


carattere grafico all’angolo supe- 
riore sinistro dello schermo. Se 
questo non cambia, la routine me- 
morizza due battiti invece di uno e 
dovete andare più veloci. 

Quando premete il tasto “freccia 
in giù” subentra il Basic e trasfor- 
ma il vettore intero Z(i) in un vet- 
tore in singola precisione che con- 
tiene i secondi tra i battiti e un al- 
tro vettore che contiene il tempo 
totale in secondi. 

Il programma calcola e visualizza 
la frequenza cardiaca media e poi 
mostra un grafico dei battiti. Ogni 
secondo è diviso in tre parti. Un 
carattere grafico pieno indica un 
battito cardiaco. 

Premete il tasto ENTER. Viene 
effettuata un’autocorrelazione con 
60 spostamenti di fase (20 secondi 
con intervalli di 1/3 di secondo per 
lo spostamento di fase). Per fare 
questo dovete avere almeno 100 
punti. Quindi il programma dise- 
gna sullo schermo un autocorrelo- 
gramma. Ricordate: questo è la 
correlazione di una serie temporale 
con se stessa con vari spostamenti 
di fase. Se avete rilevato un nume- 
ro sufficiente di punti e li avete in- 
trodotti con sufficiente accuratez- 
za, vedrete nell’istogramma un se- 
condo picco, che mostra una flut- 
tuazione periodica nella frequenza 
cardiaca dovuta al ritmo respirato- 
rio. 

Poi il programma vi chiederà 
l’ordine delle medie mobili. Que- 
sto influenza le periodicità che ven- 
gono eliminate. Il filtro delle me- 
die mobili è più efficace sulle fre- 
quenze vicine al suo ordine. Il pro- 
gramma calcola ed esegue un grafi- 
co longitudinale sulla stampante. I 
simboli # sono della serie livellata 
e gli 0 sono i dati originali. 

Infine il programma vi proporrà 
di rivedere i risultati o di rifare le 


(segue) 


Segue Listato 2 


250 FPRINTES12, "SENTER= FER IMMETTERE I BATTITI CARDIACI, «FRECCIA IN GIU*> 


ERO SNALI?ZARLI" 
R60 ASUSRIO)-1 
279 DIM MiA) 
13 £20989/ 1E6 
FOR 1=1 TO A 
Z(I)£0 THEN Y{(I)=C0* (655354+Z (I))+0,15 
Yrloi=stCo8zZ CII+0, La 
IF YI} 30 THEN HR=HF+Y (1) 
IF MYsY CI} THEN MY=VY C1) 
TIME=TIME+V (1) 
DI X{(I)=TIME 
#80 FRINT USING UlssZ(1)aY(IOaTIME 
330 NEXT I: HR=A/HR*60 
400 ZZ=%5*% (TIME+1)s DIM Z2X(Z2Z) 
Alto CLS* PRINT'*HAI FATTO "sar! BATTITI SIN Ss TIMES! SECONDI" 
20 PRINT"HAI UNA MEDIA DI "sHRs" BATTITI/ZMINUTO" 
460 A2%=CHF#4 (188): A18=CHR$ (176) 
47% PRINT "DELTA=1/3 DI SEC." 
480 J=1l: STP=1/3 
490) FOR E=sQ TO TIME STEP STF 
495 IF XY (J) THEN FRINT Alf: Z2(E#3)=0r GO0TO0 S10 
Lat01%) IF XJ) c=kE THEN Z2(E*3)=41s FRINT Af$i: J=d+l: G0T0 500) 
S1O NEXT Es PRINT: As=INKEY® 
520) PRINT: PRINT'BATTI UN TASTO FER CONTINUARE": 
S3O A$=INEEYV$: IF AS="" THEN 530 
590 CLS: FOR FH=1 TO) 60 A 
400 FRINTIESO, "STO LAVORANDO SULLA FASE "FH 
610) FOR I=t TO A 
620 IF I+FPHEZZ THEN 660 
6 A B(FH)=R(FH)+2Z2 (I) *Z2{1+FH) 
€40 NEXT I 
650) LE MX (FH) THEN MX=BEFH) 
©6650 NEXT FH 
©BO NP=40 MX 


FOR I=1 TO 60 
Boo e STEP -i 
SET (I+16,4) 
NEXT d 

a so IF A8="" GOTO 700 
ii alfine L'ORDINE DELLE MEDIE MQBLL | "Ma 
800 PERINI "FER FAVORE ATTENDERE UN FO'" 
B10 FOR Ist TO A-MA: SUM=O 
EUE J=1 TO MA 

PRINT". "5 

vav (I4dJ=1) 
BEO LE Y=0 GOTO 870 
bee fon UA) «[IM=S5UM+Y 
970 NEXT # 
Hai i] SUMMA 
noe Do salici THEN MM=M(C1) 
900 NEXT 1 
950 IF MMSMY 
940 SC=50/5C 
980 TE$="]IME 1 "+STRING$ (51, "—")+"s"s LPRINT TEPS 
590 FOR I=i TO A-MA 
LOD vav (1): IF Y=0 GUTO 1040 
1005 = (1) 
DOLO LPRINT USING "#### "515 
1030 IF veM THEN LFRINT TABCOY*SC+1)5"0":TAb(MeSC+1)1"#" 
1040 [FE MY THEN LERINI TAB MESC+1) "ge sTAB(YASC+1) i "0": 
LOGO LERINT T&B(S7) 30" 


THEN SC=MM ELSE SC=MY 


CLS: PRINT"AUTO-CORRELOGRAMMA DEI DATI «“* BATTITI UN TASTO FER 


CONTINUARE" 


(segue) 


Segue Listato 2 
1060) NEXT 1 
1070 LPRINT TF$ 
10680 CLS: PRINI 
1096 PRINT": 
L106 PRINT": 
1119 PRINT"E> 


TAB CIO: 
RIVEDERE 


FINIRE" 


1120 fr [NEE x IPO Apa" 


ip es) GOTC 1150 
114) END 

F000 ADTOSTZSO: 
9020 FOR ASAD TO 65370 
BOZzoù RERID Pi 
9040 NEXT AA 
#0S0o M=bsbt79» 
SO60 TF MS:M THEN PEUEE 
OS 600 65 


GOT. 


Rik. SHEFù 


"ORA PUOl:" 
I RISULTATI" 
RIFARE LE MEDIE MOBILI" 


1100 ELSE DI VAL (AB) 


FOFE A-onsze, i 


MS=FEEE 160561) +PEEE (1605621 #006+1 
16561, M- INT (M/Z56) #25 


FPOEE 


10000 DATA 245,62:42,50,0,60,35,86,255, 200 
’ . : ' n : 


10010 DATA 135,38, 213 
10020 DATA 0,58,64, 56,2 


i 225 17,0,0,33,Ò 


54,16,40,53,254;1 


IOOZ0 DATA 40,5,553,24, 242,221, 117,0 ,221,35 
10040 DATA 221, 116,0,221,35, 35,0,0,19, 213 

LOOSO DATA 229, 221,227,1,2959,39; #49, 96,0 ,2Z2 
10060 DATA 225,225, 20%,58,0,60,254,191,40,4 


L10070 DATA 62,191, #4, 62,35 


00,60, 24 


19080 DATA 196,213,225, 195, 154, 10,90,40,48,41,0 


GBOTO 410,790, 1140 


(E GE ————<P@<P<+T+@—11iP|————_——————T—+__@-_..——T————_____r-+"> 


medie mobili con un altro ordine. 
Provate a farlo e guardate l’effetto 
del periodo del livellamento. 

Il programma contiene una serie 
di routine molto utili. La routine di 
autocorrelazione scala e disegna un 
istogramma di valori dati. La routi- 


ne delle medie mobili vi permette 
di scalare la larghezza di un grafico 
per la stampante e stampa un lun- 
go grafico di punti. (Può lavorare 
anche sullo schermo, ma un po’ 
meno efficacemente). Non potete 
usare le istruzioni TAB con argo- 


mento superiore a 64 anche se la 
vostra stampante ha più colonne di 
questa (a meno che non usiate un 
Basic adatto, come ad esempio il 
DOS PLUS Disk Basic). I 


SARTRE 


I nidi di FOR 
Mauro Boscarol 


Considerate questo semplice programma: 


FOR I=1 TO 3 
FOR J=1 TO 3 
FOR K=1 TO 3 
PRINT 1,J,K 
NEXT K 
NEXT J 
NEXT I 


Se lo fate girare, otterrete come risultato questa 
colonna di terne: 


LI 31 311 
IE 212 312 
VII 213 313 
12] 221 321 
1:22 222 324 
1.23 223 323 
31 231 3.31 
32 232 332 
33 23 3 333 


Ognuna di queste terne è un possibile risultato di 
una giornata ippica, durante la quale vi sono tre cor- 
se, e ad ogni corsa partecipano tre cavalli, indicati 
con 1, 2 e 3. Per esempio la settima terna 1 3 1 indica 
che la prima corsa è stata vinta dal cavallo 1, la se- 
conda dal cavallo 3, la terza dal cavallo 1. 

(Si tratta delle combinazioni ordinate con ripetizio- 
ne di tre oggetti, a tre a tre, oppure dell’elenco di 
tutti i punti di N° contenuti nel cubo di lato 3). 

Se qualcuno vi chiede di rendere più generale il 
programma, prevedendo che alle tre corse partecipi- 
no non sempre esattamente tre cavalli, bensì M1, M2 
e M3 cavalli rispettivamente, potrete far fronte al 
problema semplicemente cambiando gli indici finali 
dei FOR. 

INPUT MI, M2, M3 
FOR I=1 TO MI 
FOR J=1 TO M2 
FOR K=1 TO M3 
PRINT I,J,K 

NEXT K 

NEXT J 

NEXT I 

La cosa diventa però molto più complicata appena 
vi si chiede di scrivere un programma che funzioni 


RACCOLTA DI ROUTINE BASICO 


per un numero quaflsiasi di corse. Bisognerebbe allo- 
ra scrivere un numero variabile di FOR, ma ciò è 
impossibile. La soluzione consiste nel cambiare com- 
pletamente filosofia, cercando di scrivere un pro- 
gramma senza FOR. 

Per semplicità, vediamo il caso in cui gli indici fina- 
li sono tutti uguali ad M (ad ogni corsa partecipano 
sempre M cavalli). Quindi il problema è: come scri- 
vere un nido di N FOR ognuno dei quali va da 1 a 
M? (con N e M variabili, diciamo introdotti con una 
istruzione INPUT). 

L’idea di base consiste nel pensare che ogni volta 
che non è più possibile incrementare un indice per- 
ché ha raggiunto il massimo, bisogna andare alla sua 
sinistra e trovare il primo indice che possa essere in- 
crementato, incrementarlo, porre ad 1 tutti gli indici 
alla sua destra e quindi il processo ricomincia con 
l’indice più a destra. 

Procuriamoci dunque un vettore di N elementi 
A(1), A(2), ... A(N) e un puntatore P agli elementi 
del vettore (cioè una variabile che contiene un parti- 
colare indice del vettore). 


19 INPUT NM 
20 FORI=1TON 
30 A(M=1 

40 NEXTI 

50 FOR]=1TON 
60 PRINT A(1), 
70 NEXTI 

80 PRINT 

90 P=N 

100 A(P)=A(P)+1 
110 IF A(P) < M THEN 50 


120 A(P)=1 
130 P=P-1 
140 IF P<> 0 THEN 100 
150 STOP 


Questo algoritmo può essere reso più generale ap- 
portando le seguenti modifiche: 

1. gli indici finali non sono tutti M ma sono un vet- 
tore M(1), ..., M(N); 

2. gli indici iniziali non sono tutti 1 ma un vettore 
L41), LUND 

3. i passi non sono tutti 1 ma un vettore P(1), ..., 
P(N). 

Dopo aver apportato queste modifiche si ha a di- 
sposizione un algoritmo che simula un nido di N 
FOR, ognuno con un proprio rango e un proprio pas- 
so. E 
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ono usciti i nuovi volumi 


ell’Encyclopedia for the - 


Ora la raccolta è completa 


L’Encyclopedia for the TRS-80 è la maggior fonte mondiale 
di informazioni sul TRS-80 mod. I e III. Tutti i dieci volumi 
contengono programmi pratici e articoli progettati per portare 
voi e il vostro computer al di là dei limiti imposti dai manuali 
del costruttore, in un nuovo e affascinante mondo. 

Ogni volume contiene tra 15 e 20 articoli accompagnati da 
diagrammi e listati di programmi. Gli articoli toccano tutti gli 
argomenti più interessanti: utility, didattica, business, word 
processing, hardware, grafica, giochi e molti altri. 

Pensateci! Più di 150 programmi per 200.000 lire, il prezzo 
dell’intera raccolta in 10 volumi. 


Cos’è l’Encyclopedia Loader? 


Sono 10 cassette del tipo C30, contenenti tutti i programmi 
dell’Encyclopedia for the TRS-80. L’Encyclopedia Loader vi 
permette di caricare i programmi velocemente e con facilità, 
risparmiando le ore di tempo necessarie per la battitura e la 
correzione degli errori. 
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Un tasto per una istruzione 


Giuseppe Franza di Foggia ha scoperto un pic- 
colo trucco per introdurre un’intera parola chia- 
ve del Basic con un solo tasto. Ecco qui di se- 
guito la sua lettera. 


Sono un assiduo lettore sia di PS che di Bit, che 
seguo da oltre due anni, tralascio i convenevoli a cui 
avreste diritto e vi sottopongo un caso particolare che 
mi successe circa due anni fa. 

Io possiedo un CBM 3032, e un giorno per caso mi 
capitò di battere dei caratteri grafici dopo una REM 
su una linea di programma, ma dopo aver listato la 
linea mi accorsi che i grafici furono sostituiti da istru- 
zioni Basic corrispondenti. Da quel momento intuii 
che forse era possibile usare un solo tasto per dare 
una istruzione Basic, ma bisognava dare sempre il 
REM all’inizio della linea e poi bisognava toglierlo, 
cosa che risulta fastidiosa se unita all'operazione di 
ricerca del carattere grafico che corrisponde all’istru- 
zione da battere. 

A distanza di tempo, mi sono deciso a progettare 
una routine che mi evitasse l’ingrato compito di an- 
dare a togliere tutti i REM che “intestano” le linee; e 
quindi ho creduto opportuno rendervi partecipi di 
questa mia curiosità che se pubblicata forse renderà 
qualche “pettomane” soddisfatto. 


I vantaggi della routine: 

Sull’area Basic: è possibile l’editing di linee lun- 
ghe oltre le due normali di video, risparmiando 5 
byte per ogni linea in meno di programma (2 di 
link, 2 di numero di linea, 1 di End of Line). 

Ciò è possibile perché ogni istruzione viene me- 
morizzata con il suo codice e non secondo le sue 
letture. 

Sul printing: quando bisogna battere un pro- 
gramma per ore, è possibile avere un sensibile ri- 
sparmio di tempo, battendo per ogni istruzione un 
solo tasto. 


Gli svantaggi: 
Sull’area Basic: per ogni linea vi è un byte in più 


63900 K=1025:J=256:1=098:W=PEEK(42)+J*PEEK(43)-I 


HNOTUIVOSCHKC®2ZQ I 


Tabella delle corrispondenze tra le istruzioni e i tasti 
indicati, intesi in modo Shift (in ordine alfabetico). 
Non tutte le istruzioni hanno un corrispondente carat- 
tere sui tasti. 


del dovuto, se non si batte RETURN su ogni linea 
listata per eliminare il blank iniziale. 

Sull’editing: quando bisogna correggere una li- 
nea che va oltre le due righe video, si deve ribat- 
terla per intero corretta sempre secondo la proce- 


Listato 1. La routine di cui si parla 
nell’articolo. 


63910 FOR L=K TO W:IF PEEK(L+4)=143 THEN POKE L+4,58 


63920 L=PEEK(L)+J*PEEK(L+1)-1:NEXT 
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La più diffusa 
rivista italiana 
di elettronica pratica 
allarga l'orizzonte 
e parla anche 

di personal computer. 


Sperimentare, /a più autorevole 
e diffusa rivista di elettronica 
pratica, tende a perfezionare 


i suoi contenuti e ad ampliare ia 
l'orizzonte. Oltre alle realizzazioni DON L'ELETTRONICA ru CO! 


metti sar dv00 


per gli amatori e gli specialisti 

di elettronica nei più svariati 
campi, la rivista, da questo 
numero, presenterà mensilmente 
degli articoli dedicati al personal 
computer, con particolare riguardo 
al più diffuso di essi: il Sinclair. 
Hardware, software, consigli 

e idee da sviluppare insieme, 
saranno un contenuto abituale di 
Sperimentare. 

Per questo motivo, Sperimentare 
sarà d'ora in poi la rivista non solo 
del tecnico elettronico e 
dell'hobbista, ma anche il mensile 
dell'utente di personal computer. 
Acquista il numero in edicola 

con l'inserto Sinclub. 

Un numero stimolante della rivista 
senza confronti. 


SPERIMENTARE 


UNA PUBBLICAZIONE J.C.E. 
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dura e quindi si potrà eseguire di nuovo la routine 
che elimina il REM. 


Note 


63900: K Inizio area Basic del CBM. 


It 


J = Limite superiore di un byte. 

I = Numero di byte che la routine occupa, 
più di 2 byte di fine testo Basic. 

W = Puntatore dell’ultimo byte del pro- 


gramma-utente. 

63910: Loop sui link del programma-utente in area 
Basic; controllo che il primo byte di linea sia 
una REM (143), se lo è lo scambio con due 
punti (58). 

63920: Punto di Link successivo, saltando la linea. 

Nella routine dovranno essere eliminati tutti gli 
spazi, altrimenti I=098 non è più valida. 

Sulla linea 63920 decremento L perché tale punta- 
tore sarà posizionato sul Link successivo dal NEXT 
che incrementa L. 

Quando L supera l’ultimo link di programma, en- 
tra nell’area della routine, quindi si esaurirà il loop. 

E importante che il programma-utente nor superi i 
numeri di linea della routine, 

Dopo aver battuta la routine per intero, si inizia a 
battere il testo Basic del programma secondo questa 
procedura: 
® Batto il numero di linea, il REM, e quindi la linea 

codificata. 

@ La linea codificata ha per ogni sua istruzione il re- 
lativo carattere grafico (vedi tabella delle corri- 
spondenze). 

® Ogni carattere grafico al di fuori delle verrà 
interpretato come una istruzione dal sistema Basic 
del CBM. 

In altri termini dopo un REM tutte le istruzioni 
(quasi tutte), possono essere rappresentate dai corri- 
spondenti caratteri grafici; ma nel listato vedremo le 
vere istruzioni dopo ogni REM di linea. 

Dopo aver completato il necessario editing del pro- 
gramma, per provarlo bisognerà eliminare tutti i 
REM che non servono, per farlo basta dare il coman- 
do diretto GOTO 63900. 

E utile chiudere il programma con END se non si 
vuole eliminare la routine in coda, che potrà servire 
per altre modifiche in altri momenti. 
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Una grande impresa editoriale 
comincia oggi nella vostra edicola 


Il micro-millennio è cominciato. 


Siamo nell'era dell'elettronica e 
dell'informatica. 

Una rivoluzione silenziosa sta cambiando 
il nostro modo di vivere, pensare, 
esprimerci. 

Una scelta ci sta oggi davanti: subire le 
novità che ci attendono oppure viverle da 
protagonisti; impadronirci del futuro 0 
farcene travolgere. Decidiamo! 

Varcare le soglie del micro-millennio 
conoscendone tutti i segreti è oggi 
possibile. 

Oggi c’è E.I. l'enciclopedia dell'elettronica 
e dell'informatica. 

Un'opera unica al mondo, scritta da 
specialisti per uomini-protagonisti. 

E completa, rigorosa, documentata, facile 
da capire... anche se,parla di 
elettrotecnica, elettronica allo stato solido, 
elettronica digitale, microprocessori, 
comunicazioni, informatica di base, 
informatica e società. 

Tutto quello che volete e dovete sapere 
sul micro-millennio che ci sta aspettando. 


EF......... 


di Elettronica e Informatica 


50 fascicoli settimanali 

@ 12 pagine di elettronica digitale e 
microprocessori 

@ 16 pagine di informatica (oppure elettronica 
di base e comunicazioni) 

@ 1 scheda (2 pagine) di elettrotecnica 


per ottenere in meno di un anno 


@ 7 grandi volumi 
® 1400 pagine complessive 
@ 1 volume schede di elettrotecnica 


L opera è arricchita da circa 700 foto e 2200 
illustrazioni a colori. 


Ogni settimana l'elettronica, l'informatica, 
l’elettrotecnica in un unico fascicolo 


HEF.......... di Elettronica e Informatica 


Oggi in edicola... domani nella vostra biblioteca 


GRUPPO EDITORIALE 
JACKSON 


In collaborazione con il Learning Center 
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TEXAS TI 99/4A 


PRINT e INPUT 
in un contesto grafico 


Sergio Borsani 


In occasione del primo numero di questa rubrica 
dedicata ai possessori del TI 99/4A desidero rivolgere 
un particolare saluto tramite il breve programma di 
listato 1 che vi prego di mandare in esecuzione. 


00 CALL CLEAR 

DATA SI, 73 ind 79,32, 84 

20 DATA 69,88, 65)78,73 

T0 RESTORE iiù 

O FOR I=sll TO 21 

50 READ L 

60) CALL HCHARI1S,F,L) 
MEXT I 
CALL COLOR2, 16,7) 


CALL HCHAR (10,9,42,15) 
CALL 4 2 


A 


F, FOR I=1 o 50° 
CALL COLOR 2,7 
CALL COLORI. 

O NEXT I 

do END 


Listato 1. 


La scritta è apparsa alla riga 12 e non nella parte 
bassa del monitor come avviene con l’istruzione 
PRINT. 

La possibilità di accedere ad ogni posizione del vi- 
deo è particolarmente interessante quando si lavora 
in un ambiente grafico poiché l’esecuzione di ogni 
PRINT provoca lo spostamento verso l’alto di un di- 
segno già presente. Per chi avesse ancora poca dime- 
stichezza con il Basic, nel nostro esempio le istruzioni 
DATA contengono i codici ASCII delle lettere che 
formano la frase. L’istruzione RESTORE non è qui 
indispensabile, ma lo diventa nel caso di ripetute 
analoghe istruzioni in un programma articolato. Gli 
elementi contenuti nei DATA, vengono letti sequen- 
zialmente indipendentemente dalla loro posizione, il 
RESTORE serve a riportare il puntatore nella posi- 
zione desiderata. 

Lo stesso risultato può essere ottenuto utilizzando 


ea, ESANi ie 7 ail 
1 (A8, Ta 


SELE 1)) 
A > HAR (12; 10+1I, 


Listato 2. 
88 


funzioni di stringa. Le righe dalla 110 alla 170 posso- 
no essere sostituite da quelle riportate nel listato 2 e 
in questo modo si evita la conversione delle lettere in 
codice ASCII. 

Il TI Extended Basic mette a disposizione il co- 
mando DISPLAY AT(x,y) che svolge le stesse fun- 
zioni consentendo un notevole risparmio di tempo e 
di memoria. Nel primo caso sono stati occupati 129 
byte, nel secondo 98, con l’istruzione in Extended 
Basic solo 33. 

In molte applicazioni si rende necessaria anche 
l’introduzione di dati in ogni posizione video. Anche 
in questo caso l’Extended Basic offre il comando 
ACCEPT AT(x,y) ma anche con il Basic residente 
nella consolle è possibile ottenere un effetto analogo 
usando l’istruzione CALL KEY. Consideriamo dap- 
prima i suoi elementi di sintassi: CALL KEY(0,K,$). 
0 definisce la tastiera, in questo modo il computer 
associa ad ogni tasto il valore ASCII corrispondente; 
tale valore viene attribuito alla variabile K; S assume 
invece i seguenti valori: 0 quando non viene premuto 
alcun tasto, —1 quando viene premuto lo stesso tasto 
premuto in precedenza, 1 quando viene premuto un 
nuovo tasto. 

Un uso dell’istruzione CALL KEY, oltre a quello 
descritto nel manuale è riportato nel listato 3. 


- CLEAR 
bia KEY OE 


THEN ‘dà 
DE MES CE) 


1 
L. HCOHAR CECI 
GOTTO 150 


Listato 3. 


Questi passi di programma corrispondono ad un 
INPUT nella riga 12 a partire dalla colonna 10, se 
ora digitate una frase, essa viene visualizzata in quel- 
la posizione e viene memorizzata come variabile di 
stringa A$. Infatti, se interrompete il ciclo premendo 
FCTN(4)=CLEAR e impostate il comando immedia- 
to (senza numero di linea) PRINT AÎ, ritorna la fra- 
se digitata in precedenza. 

A conclusione voglio presentare un gioco che ben 
sintetizza tutte le considerazioni esposte (listato 4). 

Si tratta di colpire un castello a colpi di cannone: 
vengono messi a disposizione S tiri e di volta in volta 
bisogna specificare l’alzo scrivendo i gradi. Il pro- 
gramma prevede due cifre per gli interi ed una per il 
valore decimale, pertanto, per scrivere un angolo di 
8°, è necessario digitare 08 0. 
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Listato 4. // programma “Tiri balistici”. 


100 REM *** TIRI BALISTICI*** 

1105 CALL CLEAR 

120 PRINT O" AIA EE RATA AE" 
130 PRINT " * *" 
140 PRINT " * TIRI BALISTICI Gato 
T90 PRINT * de *" 
150 PRINT" HEX AEILIIAE AIA IATA IAA" 
170 


CHAR (128, "6061F1F0F061667C") 
CHAR (129, "OOFFFF70F8DBFB70") 

Cc "0000000009142AN55") 
"0000081C3E7F1C1C") 
"00000000AAFFEESE") 
"AAAAFEFEFEFEEEEC") 
U7F7ZEZE7Z1I7Z1717171") 
"FCFCFCFCFCECECEC" ) 
"0000000000000001 " ) 
"00000010387CFEFF") 
"000000040E1F7FFF")} 
"©64204290B8DECE46") 
VOSOFIF1131717171") 
"6001040004000501 Ho) 
\EFFFFFFFFFFFFFFF") 
BHE, 

CALL COLOR(15,9,1) 

L FRILRULUR sia 1Ò, 1) 

1 D=TNT((-$000+1)#RND)+5000 
D=INT(D/10)*10 . 
PRINT DOEVI COLFIRE UN BERSAGLIO A 
FRINT Ds "METRI DI DISTANZA Ri, Lì 
PRINT " ": "HAI A DISFOSIZIONE 5 TIRI 
20 PRINT n” "” 1 n “" : LI ” ì | si 

450 PRINT "PREMI di FER CONTINUARE 

440 CALL KEY (0,KEY,STATUS) 

450 IF STATUS=O THEN 440 

460 CALL CLEAR 


see ea ee e e a a 


pi pippi pp pp 


FURIA Db 
OI UANMP-oa NoN 


470 CALL HCHAR (20,1, 192, 
480 CALL HCHAR(19,4,130) 
490 CALL HCHAR (19,5, 128) 
S00 CALL HCEHAR (19,6, 129), 
S10 CALL HEHAR(17,24,144) 
520 CALL HCHAR(17, 25,145) 
530 CALL HEHAR(18,5t,1235; 
940 CALL HEHAR (18,52: 156) 
279 CALL HEHAR (15° 56 333 
S60 (ITA PI SARO wr 
570 REL PIGRO (MAX 9 ERRORE M. 
580 FOR _I=i TO LEN(A: 
590 A= ASC(SEGS (A$2I:1 
600 CALL HCHAR (1, + 
610 NEXT I 
20 L=i 
530 CALL HCHAR (2+Ls 3» 4641) 


640 CALL HCHAR(2+L9» dat) 


650 CALL HEHAR(3+L, 7,15 
660 GRAD= LA To 3 

S70 { = a ni 

680 FLAT THEN 710 


700 Goro 720 

71 a 

550 Bal KEY co ET IO 
730 IF STATUAR(24L, GAM: FEYI 


AR 
id 4 ti I*1o 
750 RAP -ERiAR (SrL. nese 


810 CALL HICHAR GS 3HLa RISI 
as 


940 CALL fehar cea. 10, 32) 


850 SE SUEREMI 1. PER SPARARE! 
870 FOR _I=1_ TO LEN(5$), 

990 S=ASC(SEG6(S8, 1,1) 

290 CALL HCHARC1O, 3+1,5) 

900 NEXT I 3 
910 UALL KEY (0, KEY, STATUS) 
920 IF STATUS=O THEN SIO 


50 CALL SQUND‘E 
ì CALL HCHAR( 

RADI= SFADEI 
X=100000ST 
ER=SINT( (XD) 
IF_AES(CER)£ 
GOSUB 13540 


CALL SOUND (800, 7110) 
CALL SOUND (1200,-7, 15) 
CALL SQUND (16500,—7) 20) 
CALL SOUND (2000, CASS 


GALL HCHAR(19, 25,140) 
CALL HCHAR(19, 142) 
CALL _HCHAR(18S,23,32,2 


C$="COLPITO" 

FOR _I=1_ TO Sani 

> C=ASC(SEG$(C$,I,1)) 

© Santa HCHAR (2+L, 19+I,C) 


O Ria-*VuoI RICOMINCIARE? (S/N) " 
O FOR I=i TO LENCRIS) 
RI= ASCISEGSIRIS, I,1)) 
CALL HCHAR (10, 5+I)RI) 
NEXT I 
CALL KEY (0,KEY, STATUS) 
DE icona THEN 1240 


COEFF=D/18 
CO L= INT (7+ (X/CDEFE) ) 
IFiCO TH 


BaTO- ‘fa30 
ne 
Aa, "HEHAR (19, COL, 42) 
CALL SOUND (30Ò Pea) 
CALL SOUND (900, -6, 10) 
oi SOUND (15 S0Òò, SPA Z0) 
1530 
po To LUNGO" 
FOR _I=1 TO LEN(T*) 
T= ZASC (SEGR (TE 100 O) 
ALL HEHAR (12, 16+1,T) 


FOR Isi*t0 Lex 
x RO) è 
) Fate teRRR SR.I,i) 
DA CH {3 DS 
; NEXT AR +.) sal CENCER6) +1, E) 
L>5 THEN 1620 
E HCHARt127 16,32, 12) 
Ji GO 
RIS$="VUOI RICOMINCIARE? (SZN) " 
COR I=1 TO LENC(RISS) 
R=ASC (SEG& (RISS,I,1}} 
Reni HCHAR (10,341, FR) 
T 


CALL KEY (0, KEY, STATUS) 
IF STATUS=Ò THEN 1670 
Db K EVS 39? THEN 9 

inci peace 


1750 GOTO 360 
760 END ® 
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SINCLAIR ZX80/ZX81 


Scritte giganti, grafici e disegni, 
messaggi video 


Enrico Ferreguti 


La prima routine serve a stampare parole a lettere 
ingrandite. A questo punto qualcuno avrà già storto il 
naso perché a conoscenza di programmi ben più brevi, 
che però hanno due punti a sfavore rispetto a “Scritte 
giganti”: prima di tutto il tempo di esecuzione: nel 
nostro programma è pari a 3 sec. per stampare una 
parola di 6 lettere, quando negli altri il tempo di esecu- 
zione per la stessa parola sale al minuto, proprio per- 
ché usano la mappa dei caratteri residente in ROM. 
Secondariamente i caratteri stampati dalla nostra rou- 
tine sono più piccoli, comunque leggibilissimi. 

Come si capisce dal listato la parola da ingrandire 
è contenuta nella stringa G$. Bisogna inoltre specifi- 
care in X ed Y le coordinate d’inizio della stampa. 

La routine “riconosce” solo le lettere dell’alfabeto 
italiano, quindi J, K, W, X, Y sono state tralasciate. 
L’utente può comunque aggiungerle usando la tabel- 
la 1 per ricavare il numero di linea in cui inserire la 
stampa del carattere. Durante questa operazione bi- 
sogna tener presente che il carattere gigante è stato 
‘costruito con una matrice di 2X3 caratteri grafici. 


Fic - > B14 —>Zzi: 
Co- 33251 i >E2: 
E --3:225 a225 
G-- 2232 tas 
i-->}s3îà +1 
K_->:244 24 F 
M-- 3252 h-_ - 3262 
d--x2568 P__3252 
N-r- 32652 R-->=5S 
S5-- 3253 T--D2F1 
U--}3?4 SÌ-- SF 
id-- 52820 XkK--3ESli 
NWe= 3286 T-- 35 


Tabella 1. 


SCRITTE 
GIGANTI 


Figura 1. Esempio di esecuzione. 
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Man 
(DISTRO 
ONES 


È 


TANTI DA (I 


“TAG 
224 
eek 

“TAG 


dea 


veetwrmoeortoiroertptatrt 


GETURN 


+ Se 
RETURN 
PRIMF_ OT 

DU some - 
RETUREI 


PRIMT BF 


Pa TRE 


TT m:: 
PAST La 


DIE RETURN 


HERE] 


Listato 1. // programma 


"til 


ilijiz 


ni 


“Scritte giganti”. 


I SEGRETI DEI PERSONAL 


SINCLAIR ZX80/ZX81 


La seconda routine è stata pensata per facilitare la 
composizione di disegni sullo schermo dello ZX. La 
routine non si avvale della solita rappresentazione car- 
tesiana, usa invece un cursore che speciali comandi 
spostano e fanno disegnare. 

Questa routine è stata pensata per facilitare la 
composizione di disegni sullo schermo dello ZX. La 
routine non si avvale della solita rappresentazione 
cartesiana, usa invece un cursore che speciali coman- 
di spostano e fanno disegnare. 

Il programma è comandato dalla stringa K$ dove 
sono contenuti i comandi del cursore. E inoltre ne- 
cessario specificare le variabili X e Y per fornire al 
programma le coordinate di origine del disegno. 

E importante capire bene la tecnica di composizio- 
ne delle figure. 

Per far questo ci si avvale dei seguenti comandi. 

Per far plottare un punto e spostare il cursore si 
usano i numeri 5, 6, 7, 8 che lo muovono di una posi- 
zione nella direzione che essi rappresentano sulla ta- 
stiera, quindi 5 a sinistra, 6 in basso, 7 in alto e 8 a 
destra. 

Per far muovere il cursore senza disegnare si usano 
le lettere O, S, N, E che rappresentano le iniziali dei 
4 punti cardinali e che lo spostano nelle rispettive di- 
rezioni. 

La routine non è molto utile per comporre disegni 
che occupano poco spazio, si rivela invece molto ver- 
satile per disegni di una certa estensione. Si può usa- 
re il programma come disegnatore ignorando la strin- 
ga comando K$ e aggiungendo le seguenti righe: 


130 LET S$=INKEY$ 
155 LET K=K+1 
165 LET S$="” 


Figura 2. Alcuni disegni ottenuti con il programma di 
listato 2. 


"a 
Ss 
= 
pui 


LA FENTRA TANI 
LETDES =) 


tiro eteri 


Dit 
a e 


' 
Ù 


ama 


DIVA FAAC 
Una To 


pi 


foto Lt pai per pria ac 


pali 


Listato 2. I! programma “Grafici e disegni”. 


La terza routine serve a visualizzare una stringa di 
non più di 32 caratteri in movimento da destra a sinistra 
come nelle insegne pubblicitarie. L’uso è semplicissi- 
mo: si tratta di fornire al calcolatore prima la riga in cui 
si vuole la visualizzazione (variabile S), poi la stringa 
da visualizzare. Il programma partirà e si potrà fermare 
solo con il tasto BREAK. 


5 INPUT £ 
INPUT AG 
FOR I=s1 TO S25-LEN A$ 
LET A&=Ak+" “ 
MEXT I 
FOR I=52 TG 1 STEP 


PRINT MAT S.,I-13;A$ (1 


Listato 3. Routine messaggi video. 


Analisi della routine 
5-10 Righe di input. 
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Franco Filippazzi - Giullo Occhini 


VOI E L'INFORMATICA 


100 tavole per il manager 


VOI 
EL INFORMATICA 


Frenca Pimpazzi Gitto Quai 


Gli strumenti dell'Informatica; l'informatica e l'Azienda; 
prospettive tecnologiche e sistematiche; verso la 
Società Informatica: 

i temi fondamentali della scienza che sta 
rivoluzionando il mondo della produzione e della 
gestione aziendale, in un volume scritto in funzione 
delle nuove esigenze dei quadri direttivi e manageriali. 
Un'opera agile ed esauriente, nella quale un testo 
eminentemente pratico si accompagna a chiarissime 
tavole commentate, che favoriscono un'immediata 
comprensione degli argomenti esposti. 

116 pagine. Lire 15.000 


GRUPPO EDITORIALE 
JACKSON 


Nelle migliori librerie tecnico-scientifiche 
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SINCLAIR ZX80/ZX81 


20-40 Se la stringa è minore di 32 caratteri si 
provvede a riempirla con degli spazi fino 
al trentaduesimo. 

50 - 70 Avviene la visualizzazione a destra con- 
trollata dal loop I (32—1), consistente nel- 
lo stampare i primi I caratteri. 

80 - 100 Succede l’inverso: il loop I parte da 1 ed 
arriva a 32 e si stampano gli ultimi I carat- 
teri. 

110 Si ripete dal passo 50. 

Possibili modifiche 


1) Per un loop calcolato, invece che infinito, esegui- 
re queste modifiche: 


15 INPUT N 
17 FOR X=1 TO N 
110 NEXT X 


dove N è il numero di volte che si vuol vedere 
passare la stringa. 

2) Per aumentare o diminuire la velocità agire sugli 
STEP nelle righe 50 e 80. 

3) La routine non usa l’istruzione CLS, quindi lo 
schermo si altera solo nella riga puntata da S. 

4) Gira su 1 K di RAM, ma si presta ad essere inse- 
rito in programmi più grandi. MI 
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COMMODORE VIC 20 


Gestione del cursore nel VIC 20 


Enrico Bossaglia 


Alcune istruzioni mancanti sul VIC si ripercuotono 
sulla compattezza dei programmi. Un esempio è il 
PRINT AT X,Y che permette di indirizzare il curso- 
re sullo schermo, e la cui mancanza costringe a noiosi 
cicli con i caratteri di controllo. 

Non è, invece, difficile portare direttamente il cur- 
sore in un punto qualsiasi dello schermo e, con una 
sola istruzione, si può avere il cursore lampeggiante 
senza doverlo simulare in Basic. 

In tabella 1 è riportata la mappa delle locazioni più 
interessanti nella pagina zero di memoria del VIC, 
con la spiegazione del contenuto di ognuna di esse. 

Datele una attenta lettura, è una buona fonte di 
idee, e vi sarà più chiaro quanto segue. 


Posizionamento diretto del cursore 


Dalla tabella 1 apprendiamo che le locazioni 211 
($D3) e 214 ($D6) contengono rispettivamente il nu- 
mero della colonna e della riga in cui si trova il curso- 
re. Per cambiare la posizione del cursore, però, non 
è sufficiente modificare queste due locazioni ma an- 
che le celle di memoria 209, 210 ($D1, $D2) e 201, 
202 ($C9, CA). Ma di questo non vi dovete preoccu- 
pare perché esiste una routine del sistema operativo 
(58759, $E587) che aggiorna queste quattro locazioni 
basandosi sul contenuto delle prime due. 

Perciò l’esatta sequenza di istruzione è: 


POKE 211,X:POKE 214,Y:SYS(58759) 


X e Y sono il numero di colonna (0-21) e di riga 
(0-22). Aggiungendo un RETURN si può utilizzare 
come subroutine. 


Visualizzazione del cursore 


Il cursore è controllato dalla locazione 204 ($CC). 
Se questa contiene 0 il cursore è visualizzato lampeg- 
giante, altrimenti è disabilitato. L’istruzione per atti- 
vare il cursore è perciò POKE 204,0. E per disatti- 
varlo: POKE 204,1. 

Un uso interessante delle due utility viste è la rou- 
tine Basic riportata nel listato 1. 


Commento 


Inizio dei programmi Basic 
Puntatore fine programma inizio 
variabili 
Puntatore fine variabili inizio array 
Puntatore fine array 
Puntatore inizio zona stringhe 
Puntatore fine memoria 
Accumulatore #1 virgola mobile 
Registro di stato ST per l’V/O 
Numero dei file aperti 
Numero della periferica in input 
(norm. tastiera=0) 

154 Numero della periferica di output 
(norm. schermo=3) 

160-162 Contatori della funzione ora 

183 Numero dei caratteri nel filename 

185 Indirizzo secondario utilizzato cor- 
rentemente 

187-188 Puntatore al filename in memoria 

197 Numero del tasto premuto. Si ha 
un numero da 0 a 64 (64 se nessun 
tasto è premuto) 

198 Numero di caratteri nel buffer della 
tastiera 

199 Flag del reverse on/off (1/0) 

201-202 Posizione del cursore (riga e colon- 
na) 

204 Lampeggio cursore (0=on, 1=off) 

209-210 Indirizzo dell’inizio della riga in cui 
si trova il cursore 

211 Posizione del cursore sulla riga 

214 Riga dello schermo sulla quale si 
trova il cursore. Per spostare il cur- 
sore bisogna cambiare le locazioni 
201, 202, 209, 210, 211, 214 

251-254 — Spazio utilizzabile in pagina zero 


Tabella 1. Mappa delle locazioni più utili in pagina 
zero. 


La sua funzione è di gestire un input controllato, 
evitando tutti i problemi che nascono dall’uso dell’i- 
struzione INPUT. 

La routine permette di definire: 

1. una descrizione del campo; 

2. una proposta (default); 

3. la lunghezza del campo, indicata sullo schermo da 
due barre; 

4. un intervallo di caratteri accettati; 

S. la disabilitazione dei caratteri “,” e SPAZIO indi- 
pendentemente dall’intervallo scelto; 

6. le coordinate XX,YY di partenza sullo schermo. 

Sono abilitate le funzioni di editing: CRSR LEFT, 
RIGHT e INST, DEL. 
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Listato 1. Routine di input controllato. 
pe 5; = sP $= u n” 
26 nm&="Citta/:":(df&="Francavilla F." 
SO xx=0!94=10 
40 in$=" 1603322410" 
S6 sosubEaagda 
EG nmé="CAP i": df$="70121" 
ro s3=13:in$="0504705700" 
S6 sosubéGaga: ifcrthenz@ 
96 end 
1609 rem 
539720 CEMERRRRRERE RARA RIA ZA ERA EEA RRE ERE 
pal Sa remt 
9740 rem* routine di inPut controllato 
53759 remé : 
SA769 rem& variabili di input: 
S9770 rem® = xx=colonna di inizio descrizione camPo 
S3T9G rem&  yy=rida di inizio descr. campo 
59799 rem& = nm$=descrizione camPo 
59509 rem* = df$f=ProPosta i‘defaultò 
565129 rem& = in$="1lminmaxsc" 


rem 
PERPETRATI 

caz icasss i lIneva l(leftfinf, 200) mi=val0midé/1n$:3,30) 

Gia nokezii.: sa iPoke214,94/545 (59759) 

45: mossva LEMLANÒ Lia &,3)):sp=valimidé(in$:9, 19) /cm=wal(risht$Cin$,1)) 
) r&=left&(dfi+3P$:ln) 

Printnm$; :ifln=0then60230 


* 
* 
* 
$ 
* 
* 
E 
* 
* 
Sosa remé 11 = lunShezza del campò {Q0-20) * 
SSG3o rem& min =min. cod, ascii accettato (000-255)* 
59948 rem& max =max., cod,ascii accettato (000-23551# 
SI050 remt = sfazio: i=abilitato A=disab. * 
S3060 rem c = virgola: i=abilitata E=dizab. *% 
Giors rem % 
SASSO rem = sP$=n sPazi con nell Ed 
GOESA remf * 
SOsna rem& variabili di lavoro: * 
53219 rem& ca, 4, line mimo mas apo cio ces af * 
So0559 remé * 
59932 rem variabili di ritorno dalla subroutine * 
59940 rem* E 
GRIA rem* r$=strinda digitata * 
59960 rem cr=i se l’infut e stato confermato con * 
59579 rem® crer uP altrimenti cr=@ % 
DIASE * 
59990 
lì 


: priot' lies" "i /cx=cx+len(nm$)+1'cs=i 

Cade serale condi ‘sua (06799): Pok2294,9 

Gaeroa oeta$:/ifag=""then60072 

ERBSO ifaf=" "dee =Bthen62072 

GRoSO ifaz=" "inen60200 

52159 ifas=", sndon=BtHhen60970 (segue) 


(Ce) 
5a 
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COMMODORE VIC 20 
Segue Listato 1. 


GGiid ifai 
bSlsa ifa: 
GRica ifai 
GB14G ifa 
66l5e ifaf= 
GQ16O ifaf= 
64178 ifa; 
16: 20h068 
66175 ifa 
Gaise ifafi 
GHi9z sotaé 
Gaza ré=1l 
EaziS Poke 
GOzze sO 
SB Prin 
a dea 
GAZIA Poke 
SE CSC 
SUE CSC 
TASCx 


fa tà Ri ct pa sm 


iù 

Gi 
fi$(ef.ceti 
A4, i:proke2ii 
ie, ese 
af" Poketi 

‘ifafichesim 
G4,l: 

n 
SELE 

ot: 


-a$icnrs 


Mn 


ara ci Hd ge 3] 
Cin 
pe LI 


asa cFauob Ci 


Tifa i. 
dali 


dA e pi DI ni ni 


RSI RI Pa 
pe a 


L 
[ 


andaf “cart 159)thent60r® 
videro pine ntazza 


+1) 18 66219: soto60158 


) iii Sosub 
aa 
= Vv 


La conferma dei dati in ingresso si ha con i tasti 
RETURN, CRSR DOWN e CRSR UP. I primi due 
permettono il passaggio al campo successivo e l’ulti- 


mo, invece, permette di tornare al precedente. 


Se la lunghezza del campo era stata fissata uguale a 
zero allora viene accettato solo un carattere e non 
viene attesa la conferma con uno dei tasti visti prima. 


UNA TAVOLA ROTONDA AL 
MESE 

La certificazione del 

soffwore 


Quale iuturo per i mainframe? 
DP Manager, un ruolo 
în lronsizione 
Il personol nell'azienda 
Le reti lacali in'Italia 
Brakeraggio di sistemi usoti: quale 
convenienza? 
e la banca. 
gie DP: saro 


i tere pubblico d Irasmissione 
Slice Automorion: autonomia 


© integrazione? 
Formazione: è propria l'ultimo 


La stringa ottenuta da questa subroutine è sempre 
lunga quanto il campo, eccetto il caso lunghezza = 0. 

Le prime righe del programma sono solo un esem- 
pio di utilizzazione. Va notato che è necessario defi- 
nire all’inizio del programma la variabile SP$ compo- 
sta di tanti spazi quanto è la lunghezza del campo 
maggiore. II 


COMPUTERWORLD? 


Programma 1983 


dei problemi? 
I DP come servizio porabancorio 


SERVIZI “IN PROFONDITA" 


Pianificazione strategica dei 
sistemi informotivi 

Intervista a James Martin, 

il "guru" dell'informatica 
Tecnologie delle unità o dischi 
Scegliere un sistema di data dose 
Capacity Planning 

Dota Encription Standard: come 
implementorla? 

Coso ospettarsi dalla Quinia 
Generazione 

Intervista 0 Jioney Masuda 
Programmazione senza errori 
Data Base Machines 


Infatuarsi di un androide 

Una lezione dal coso Wells Fargo 
Bark 

Come sopravvivere ad un disastro 


. e molli altri ancora! 


SERVIZI SPECIALI 

Teletext e Videotex 

Il nuovo scenaria del Data Entry 
Doto Base Management Systems 
Reti di trasmissione dali 

Soltwore di bose e di utilità 


# molti altri ancora! 
INCHIESTE SULL'ITALIA 


DP itafiano: perchè tante 
Associazioni 


It centro DP come centro 

di profitto 

DP bancario: quanto si decentra? 
Viaggio nei “santuari” 
dell'infermatica italiano 

{su vari numeri) 

Il DP nelle assicurazioni italiane 

Il leasing nell'intormatica 


Servizi, rubriche, inchieste, tavole rotonde, attualità, 
anticipazioni, indiscrezioni, commenti, opinioni, analisi di 
mercato, di prodotto, novità, ricerca e offerta d 
personale, di sistemi, di software, interviste cidioniva, 
servizi in profondità, settori emergenti ..: e altro ancora! 


è molte altre ancoro! 


. E IN PIU' TUTTE LE 

RUBRICHE FISSE: 

Attualità, Spozio Banche, 

Brief Room, Software è Servizi, Per CINI inviare assegno di L.78.000 intestato o: 
IMPUTER PUBLISHING GROUP - Via Rosellini, 12 

20124 24 Milano > Tel. 02/6880951-2-3-4-5 - Tix 333436- GEJ 


oppure effettuare versamento su ele n. 26732206-CP@ 


Communicalians, Micronotizie, 
Sistemi e Periferiche, Olfice 
Autamotian, Industria e Mercoto, 
Sistemi in Vendito 


CONIARE CIELI e Pemba 9 000 o 
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SINCLAIR ZX SPECTRUM 


Come programmare uno sfondo 
scorrevole 


Marcello Spero 


Capita spesso di essere alle prese con programmi 
che prevedono uno schermo “virtuale” che si estende 
ben oltre i limiti di quello reale. È questo il caso dei 
grandi tabelloni di dati o, meno seriamente, di quei 
giochi che hanno bisogno di uno sfondo scorrevole 
(chi non conosce il “Defender”?) per simulare il mo- 
vimento di oggetti che in realtà stanno fermi rispetto 
allo schermo. 

Quando a dover scorrere è solo una sezione ridotta 
dello schermo (diciamo non più di 70 od 80 caratteri, 
che potranno essere raggruppati a formare due o tre 
righe piuttosto che tre o quattro colonne) una routine 
in Basic può essere soddisfacente, specie se la veloci- 
tà non è essenziale; volendo muovere tutto lo scher- 
mo è invece necessario usare il linguaggio macchina. 

I programmi uno e due presentano uno dei possibi- 
li modi per far scorrere orizzontalmente una riga, 
mentre il programma tre sposta verticalmente una 
colonna (verso il basso, perché verso l’alto ci pensa 
già lo scrolling automatico della macchina); la riga, o 
la colonna, è contenuta in un vettore, e può essere 
lunga a piacere. Dovendo invece spostare qualcosa 
che esiste solo sullo schermo si può utilizzare una 
routine tipo quella del programma quattro, cioè del 
tipo “leggi e scrivi”, dove ogni carattere è letto per 
mezzo della funzione SCREENS$ e riscritto nella nuo- 
va posizione; l'esempio si riferisce al movimento oriz- 
zontale verso destra, ma può essere facilmente modi- 


20 LET = 

3Q@ INPUT LINE a% 

49 FOR i=i TO (33-LEN 2% AND L 
EN a$ 20) + {© AND LEN a5%>= 28) 

SA LET_as$=a%+" 


ì TO LEN 2% 
82 PRINT _ AT 198, (32-11 AND i 39) 


{{iì-31 _DR ì TO_ i) 
i ‘32 THEN PRINT 
1a $ (LEN a$-31+i TO LEN 3% 


PAUSE 109 


Listato 1. Routine Basic per lo spostamento laterale di 
una riga verso sinistra. 


96 


20 LET f=@ 
309 INPUT LINE a%$ 
4@ FOR isli TO (33-LEN a$ AND L 
EN at ata AND LEN a$>=28) 
Sa asp=" "+a5% 
i 
is@A TO LEN a%- 
3® PRINT AT 10.a;a $ILEN a$-i T 
(LEN a$-i+31 AND i>}=31)+(LEN a 


«31 pira PRINT 
S1- 


Listato 2. Routine Basic per lo spostamento laterale di 
una riga verso destra. 


2@ LET f=@ 

30 INPUT LINE a$% 

40 FOR i=x1 TO (23-LEN 4 AND L 
EN pete atae AND LEN asp>=l81 

59 LE apra si 


i nd TO LEN Rei 
a TO (i AN i<21)+(21 
PRINT AT j/,18;a%$(i+1-/j) 
MEXT du 
IF f=1 AND i <21 THEN FOR 
ati el Soil j.,16;a$ (LE 
LANA 


95 IF f=@ NEMEN PAUSE 25-i 


120 GO TO 70 


Listato 3. Routine Basic per lo spostamento verticale di 
una colonna verso il basso. 


28 PRINT AT 10,15; "Personal SC 


FOR i=© TO 51 
FOR LJ=1_TO 


S1 
PRINT RT 19.,i-1; SCREEN® (1E 


NE 
PRINT AT 10.31:' 
NEXT i 


Listato 4. Routine Basic per lo spostamento laterale 
verso destra di una riga dello schermo. 


ficato per gli altri casi. Questo tipo di routine non 
può essere usata con caratteri grafici, per una limita- 
zione della funzione SCREEN$, che non è in grado 
di riconoscerli. Veniamo adesso al movimento del- 
l’intero schermo che, come abbiamo detto, richiede il 
linguaggio macchina se non altro per ragioni di velo- 
cità. 

Il primo caso riguarda lo spostamento di un pixel 
per volta; un pixel è l’unità grafica che compone 
qualsiasi tipo di carattere appaia sullo schermo ed an- 


SINCLAIR ZX SPECTRUM 


che il puntino che otteniamo con l’istruzione PLOT 
x,y. Questo tipo di movimento (o “scrolling”) latera- 
le è molto graduale e preciso ma d’altra parte ancora 
relativamente lento; è molto indicato per spostare la 
grafica e in tutti quei casi in cui la lentezza del movi- 
mento renderebbe troppo brusco il salto di un intero 
carattere. 

Il meccanismo su cui si basa il programma è molto 
semplice, caso classico di procedimento che in un lin- 
guaggio evoluto avrebbe richiesto strani procedimen- 
ti e molte istruzioni mentre in Assembler, grazie alle 
particolari istruzioni disponibili, risulta estremamente 
lineare. Si tratta infatti di far “slittare” una intera ri- 
ga di un solo bit verso destra o sinistra, movimento 
ottenuto con una serie di istruzione rr (verso destra) 
o rl (verso sinistra) (listati 5 e 6). 

Un solo inconveniente, legato al tipo di soluzione 
adottata sullo Spectrum per la grafica: sullo schermo 
non ci devono essere più di due colori diversi, pena 


ld hl, 225297 


MPA 
LL 


td c, 19S2 
td b, 32 


and a 
FLULI 


dec ht 
dunz, 6 


WTRHKPUMW 


LD) 


dec Cc 
ret z 
dl, -—12 


Listato 5. Routine in linguaggio macchina per lo sposta- 
mento a sinistra dell’intero schermo un pixel alla volta. 


ld hl, 16384 


td C,., 199 
ld b, 32 


snd è 

Fr hL) 

inc hl 
inz, 


J 
e 
e 
r 


Listato 6. Routine in linguaggio macchina per lo sposta- 
mento a destra dell’intero schermo un pixel alla volta. 
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la “migrazione” dei caratteri da un colore all’altro; 
d’altra parte questa è una limitazione che dobbiamo 
sopportare ogni volta che usiamo la grafica ad alta 
risoluzione. 

Secondo caso, intermedio: sempre due soli colori 
per volta, una maggiore velocità di scorrimento con 
un’impressione visiva ancora buona; si tratta di un 
tipo di movimento che sfrutta in maniera impropria 
alcune istruzioni Assembler create per il trattamento 
delle cifre BCD nelle operazioni con i numeri deci- 
mali, dove è necessario scindere un byte nelle due 
metà che lo compongono: rld e rrd, rispettivamente. 
Sarebbe interessante esaminare più a fondo questa 
ed altre particolarità del linguaggio macchina dello Z 
80, ma lo spazio non ce lo consente in questa sede. 
(listati 7 e 8). 

Il risultato pratico, comunque, è il movimento di 
mezzo carattere per volta, con un meccanismo di 
“slittamento” simile a quello di prima; tenete presen- 
te che questa, come del resto tutte le routine che stia- 


id hi, 22527 


td €, X92 
Ltd a, @ 
id b, 32 
rid 


dec hl 
GINZ, -S 


det € 
cet 2 
JP, i 


PY 


MOPIOPAPMUUOO 
9 


Le vec 


13 


W 
A 
W 


Listato 7. Routine in linguaggio macchina per lo sposta- 
mento a sinistra dello schermo mezzo byte alla volta. 


{td hl, A16284 a° 
(DI 
td €. 192 14 
192 
ld a, @ 2 
ra] 
ld b, QG2 [SY 
d2 
rrd 237 
103 
me hi 35 
SIUnz, -S ae 
251 
dec Cc 13 
ret 2 200 
If, 13 24 
243 


Listato 8. Routine in linguaggio macchina per lo sposta- 
mento a destra dello schermo mezzo byte alla volta. 
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mo prendendo in esame, ad ogni chiamata sposta lo 


schermo di una unità che, se nel caso precedente era 
un pixel, qui è mezzo byte; quindi per ottenere il rial- 
lineamento dei caratteri spostati con quelli che even- 
tualmente stamperemo dobbiamo effettuare otto 
chiamate nel caso del movimento per pixel e due in 
questo caso. Ovviamente questo problema non esiste 
nel caso che sullo schermo sia presente unicamente 
nella grafica. 


e 
o 


hU, 16385 


È) 


192 


Tn 

"n n 

DAD 
nm 


(T) 
[1)] 


VINOT TT - TTTIT. 
(la) 


ORRRRIAE 


L 
L 
L 
d 
L 
1 
i 
d 
d 
L 


235003 a c.5954M00 a Qo 
n Inn n 


(Ren al 
«nenn 
— dot dela » 


MNOMPIDUIAVEHYPAEITPER 
(n) 


Listato 9. Routine in linguaggio macchina per lo sposta- 
mento a sinistra di un carattere alla volta, senza movi- 
mento degli attributi. 


LOR SENLOLAI 
[VARE S 


oo 


e ce 
9 
Ut] 


VTNOT TT 
S 


Be 
n 


3 
7; 
8 
1 
1 
sj 
3 
1 
3 
1 
4 
4 
LA 
2 
3 
5 
ll 
4 
1 
2 
4 
è 
2 


UAUSWU AUATMWWEIDE 


% 


Listato 10. Routine in linguaggio macchina per lo spo- 
stamento a destra di un carattere alla volta, senza movi- 
mento degli attributi. 
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Terzo ed ultimo caso: spostamento di un carattere 
per volta. E il più drastico, ma consente una velocità 
incredibile ed è l’unico che, volendo, si porta dietro i 
suoi bravi attribuiti, consentendoci di usare tutti i co- 
lori che vogliamo. 

E in due versioni: senza movimento degli attributi, 
utile per spostare testi e quanto altro non colorato, e 
con attributi, la forma più completa (unico difetto: è 
un po’ lunga da digitare) (listati 9, 10, 11 e 12). 

A questo punto non manca che una semplice routi- 
ne di caricamento, una fra le tante possibili: la trova- 
te nel programma 13; la lista dell’istruzione DA- 
TA la dovrete riempire con i codici che trovate di 
fianco ai vari programmi, già in forma decimale e 
quindi pronti all’uso; fate girare il programma ed è 
fatta. Un promemoria per quanto riguarda l’indirizzo 
della nuova RAMTOP: questa dovrà essere abbassa- 
ta rispetto alla RAMTOP originale in modo da crea- 
re uno spazio sufficiente alla routine che dobbiamo 
memorizzare; quelle per pixel occupano 17 byte, 
quelle per mezzo byte 18, quelle per carattere 23 e 
quelle per carattere con gli attributi 37. Ammesso 
che voi carichiate una sola routine per volta dovrete 


uo 
N 


vi 


DPR 
m 


© tn n 


- TTI. 
n 


LIIOUANM 
ann n 
N 

O 


PMPOMPARPYIOMPPAMPLIAVE 
n 


e 


nreT 


MPOACNISIEYME 
[A 


d 
L 
i 
i 
d 
d 
L 
î 
d 
J 


anni m 
Nnrian 


Doo 


MMUVPOPYLAMVOMMVILIAE 
MNPEUPRO U MPUPU QU 


N 


Listato 11. Routine in linguaggio macchina per lo spo- 
stamento a sinistra di un carattere alla volta, con movi- 
mento degli attributi. 
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Lie) 
LO) 


o Dn 


a _w 


meo 


ll 
6 
a 
1 
e) 
1 
4 
4 
1 
2 
e) 
1 
4 
L 
4 
3 
4 
2 
2 
2 
2 
(re) 
e) 
2 


a Megpo GUIPUPTQUWENOE 


w 


Listato 12. Routine in linguaggio macchina per lo spo- 
stamento a destra di un carattere alla volta, con movi- 
mento degli attributi. 


quindi sottrarre al valore originale della RAMTOP 
(che, vi ricordo, è 32599 per il 16 K e 65367 per il 48 
K) l'occupazione di memoria della routine prescelta 
più uno, ed il risultato sarà il numero da fornire in 
risposta alla richiesta “nuova ramtop?” che vi verrà 
fatta dal programma di caricamento. 

Immediatamente otterrete in risposta l’indirizzo di 
inizio della routine, che userete nel programma di- 
mostrativo, od in qualsiasi altro programma, per ri- 
chiamarla. 
Il programma 14 è, appunto, un programma dimo- 
strativo; fornitegli una stringa di caratteri e la vedrete 
spostarsi con direzione e velocità dipendenti dalla 
routine che avrete scelto. La pausa all’interno del 
programma serve a diminuire la velocità dello sposta- 
mento, e può essere variata a piacere; anzi, provate 
ad eliminarla del tutto per rendervi conto della effet- 
tiva velocità del linguaggio macchina. La riga 40 è 
adatta alla routine per lo scrolling di carattere, men- 
tre dovreste restituire il 31 con un 62 per il mezzo 
carattere o con 255 per il pixel; se non lo fate l’unica 
conseguenza sarà uno spostamento più breve. 

A questo punto non mi resta che ricordarvi che il 


vero uso di questi programmini in linguaggio macchi- 
na è all’interno di programmi Basic: a quanto una 
vostra applicazione? 


BORDER ®: FRPER @: 
ELS 
INPLIT “nuova ramtopi:”" 


n 


SUMNHI FOME 


pP 


Listato 13. Routine di caricamento del linguaggio mac- 
china. 


BORDER Q: 
CLS 


Bizzi” n° Wet o: 
AB 22:1i 


PAUSE 21@ 
NESS 3 


Listato 14. Programma dimostrativo di spostamento di 
una stringa di caratteri. RM 


SIATRA 82/07 


ANCHE MIO MARITO 
LAVORA NELL'INFORNATICA 
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ELEMENTI DI TRASMISSIONE DATI & È 


Affronta in maniera chiara e facile gli argomenti relativi alla à 
. Irasmissione dei dati e segnali in genere. In particolare il libro si 

sofferma anche sui problemi che si incontrano lavorando "on line”, 

soprattutto quelli connessi con la ricerca dei guasti o del 

miglioramento della trasmissione. 


- Sistemi per portanti tondamentali - Caratteristiche 
fondamentali di una linea di trasmissione - Il decibel, 
un rapporto di potenze - Panoramica sui problemi 

di trasmissione - Elementi correttivi nei circuiti telefonici 
- Specifiche dei circuiti - Modems nelia trasmissione dei 
dati - Esame finale del corso di elementi di trasmissione 
dei dati - Dati di riferimento - Glossario di termini 
per comunicazioni EDP - Risposte ai quesiti. 


Pagg. 178 Formato 15x21 
Prezzo L. 10.500 Codice 316D 


IL LIBRO DEI PRINCIPIANTI 
Introduzione ai microcomputer Vol. 0 


Il libro dà una visione d'assieme su calcolatori ed 
elaboratori, fornendone nel contempo tutti ì concetti 
generali e la terminologia di base per capire la tecnologia 
usata. Vengono illustrate anche le singole parti che 
costituiscono il sistema con le possibilità di 


espansione e componenti accessori. DI \\ 
\ N 


Sommario 

Le parti che costituiscono il tutto - Usate un 
microcomputer e guardatelo crescere - 
Componenti dei sistemi a microcomputer, quello 
che si vede non è sempre quello che si ottiene - 
Gettando le basi - Dentro il computer - Mettiamo 
assieme il tutto 


Pagg. 240 Formato 13,5 x 20,5 
Prezzo L. 16.000 Codice 304A 


{ MICROPROCESSORI 
Dai chip ai sistemi ù 


Descrivere l'architettura di un sistema 
microprocessore, le funzioni richieste 

per allestirlo, i componenti e le loro 
interconnessioni. Presenta 

le caratteristiche che qualificano ciascun 
prodotto. ne analizza vantaggi e svantaggi. 
fornisce i criteri di valutazione. 


Sommario 

Concetti fondametali - Funzionamento interno di 

un microprocessore - Componenti del sistema - 
Valutazione comparativa tra microprocessori - 
Interconnessioni perla costruzione di un sistema - 
Applicazioni del microprocessore - Tecniche 

di intertacciamento - Programmazione 

di microprocessori - Sviluppo del sistema - I) futuro - 
Simboli elettronici - Set di istruzioni per il 

Motorola 6800 - Set di istruzioni per l'Intel 8080-Bus S-100 - 
Costruttori - Abbreviazioni. 
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INTRODUZIONE AL PERSONAL E BUSINESS COMPUTING 


]l testo è stato scritto per il lettore che non conoscendo nulla dei computer vuole 
addentrarsi in questo mondo affascinante per diventare in un secondo tempo, lui stesso 
utente. In modo pratico e progressivo, comunque, sono presentati tutt: gli elementi di un 
sistema finanche i metodi di valutazione per una scelta oculata 


Sommario 

L'era del microcomputer - Impiego del sistema - Definizioni di base - Come funziona - 
La programmazione - BASIC e APL - Business Computing - Scegliere un sistema - 

Le periferiche - Scegliere un microcomputer - Economia di un sistema commerciale - 
Come fallire con un sistema commerciale - Aiuto - Domani - Logica dei computer - 
Bits e Bytes - Sistemi di trasmissione base del Computer - Files e records - Alcuni 
costruttori di piccoli sistemi commerciali - Costruttori di microcomputer 
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MICROPROCESSORI 
E MICROCOMPUTER 


Sommario sn” 
Comunicazioni verbali e visive - | computers e le comunicazioni gt \\ 

- Sistemi teletonici - Terminali dei circuiti e modi di \d \A 
funzionamento - Segnali convenzionali di es es Ra 
comunicazione - Metodi e tecniche di modulazione CRI 


ie PRACTICAL MICROPROCESSORS 
Hardware, software e ricerca guasti 


Primo manuale essenzialmente pratico, in lingua italiana, 

Î insegna tutto sui microprocessori: dall'hardware di un sistema, 
a microprocessore, al software che viene utilizzato 

per controllare il sistema, a come utilizzare queste informazioni 

per apprendere le tecniche pratiche, applicabili a qualunque 

sistema digitale, di ricerca guasti 


Sommario 

Introduzione ai sistemi a microprocessore - Sistemi di 
Microprocessore Lab - Alcuni concetti di software - All'interno 
del microprocessore - Concetti fondamentali di hardware 

- Decodifica degli indirizzi - Memorie periferiche - 


, Circuiti di controllo 
1.) A, 
eta regeto, Pagg. 454 Formato 21,5 x 28 
Op, No Prezzo L. 35.000 Codice 3088 
da NA Ch, 
0, E 
lg, PRINCIPI E TECNICHE 


DI ELABORAZIONE DATI 


È una trattazione chiara e conscia dei principi base 
della numerazione - Elementi di software - Uso del 
flusso e della gestione dei dati in un sistema 

di elaborazione elettronica, concepita per l'auto- 
apprendimento degli argomenti trattati, 
mediante test ed esercizi da svolgere 


Sommario 

Fondamenti di elaborazione elettronica di dati - 
Elementi funzionali di base - Sistema di 
numerazione e codifica dei dati - Manipolazione 
dei dati - Sistemi di memoria - Criteri operativi 
relativi al programma, al controllo ed all'elaboratore 
- Alcuni concetti sui sistemi di elaborazione - 
Concetti relativi ai sistemi terminali - 

Test finale - Risposte al test 

di riepilogo - Risposte al 
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IL LIBRO DEI CONCETTI 
FONDAMENTALI 
Introduzione ai microcomputer Vol. 1 


Volume ormai “storico” presenta la struttura 
logica fondamentale su cui sono basati 

i sistemi a microcomputer in modo tale che 

il lettore può imparare a valutare l'applicabilità 

o meno, del microcomputer ad ogni problema 
pratico. Il libro sviluppa un quadro dettagliato 
dall'architettura alla programmazione, di cosa un 
microcompulter sa fare, come opera, dove si presta ad 
essere utilizzato 


Sommario 
Che cos'è un microcomputer - Alcuni concetti fondamentali 
} - Come si realizza un microcomputer - L'unità centraie del 
microcomputer - Logica addizionale della CPU - Programmazione del microcomputer - 
Un set di istruzioni - Codice carattersitiche standard 
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TECNICHE DI INTERFACCIAMENTO 
DEI MICROPROCESSORI 


Questo libro indica i concetti, le tecniche di base, i componenti per assemblare un 
sistema completo a partire dalla fondamentale unità centrale di elaborazione, per arrivare, 
ad un sistema equipaggiato con tutte le periferiche comunemente usate 


Sommario 

Tecniche di implementazione dell'unità di elaborazione (CPU) - Fondamentidi 
trasferimento dati su interfaccia (I/O) - Interfacciamento delle periferiche - Circuiteria 
analogica - Conversione analogica/digitale (A/D e digitale/analogica D/A) - Standard di 
interfaccia (BUS) - Studio di un caso: multiplatore a 32 canali - Errata funzionalità digitale 
- Conclusioni - Evoluzioni. 
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Julia 


690 M2$(C2)=C8(1) 

/00 C25C2+1 

710 NEXIL 

/30 L3=L(B1+2) 

135 Vi=C2:V2=/:60S5Ub4U0O0 


1/45. C3=5H 
x À 3 b F ‘50 1FC3=U1HENCS=) 
Riceviamo dal Signor Enrico Bassaglia questa /60 FORI=110L3 
. . è /80 M38(C3)=C$(1) 
conversione per il PETICBM. /90 CI=C5+1 
(-] NEXIL 
sog VALÙGIVEL): GUEUGAADE 
. . . . #0: ‘1 
Spett.le Redazione, il programma Julia, versione BÙ6 IFCI=GINENC1=? 
IS +e . 820 PRINI:FRINI 
Mo I, è stato da me modificato per girare o FIFA ARR ADR AB OR EEE 16) 5M$(B1+1)SPC(14)3M$(B1+2) 
su ® #43 PRINIDS:" “"3D$;" "3bs 
La modifica consiste in questo: ss noto 
e sostituzione della FNM(V1,V2) con una subrouti- HEI LIT fron 
me LOCA 
e sostituzione di ogni richiamo alla FNM (V1,V2) Guilia RL0A fade 
con due righe di programma: la prima per assegna- AE0 (NEXIO: AA 
re i valori a V1 e V2, la seconda per assegnare il v4U FORI=1106 
. . . #50 PRINIM3$(1+J-1); 
valore calcolato alla variabile desiderata; 96U NEXII 
. . È Pi 2 K 
e inserimento delle righe 375 e 1005 per comunicare VAL NERI, 
. v9U NEXIBI 
con la stampante; IUUO FORSE 1101/5PRINI :NEX ISP 
e sostituzione di ogni LPRINT con PRINT; Pisi ie Sl iona 


1020 INPUI “VUOI UN ALIRO CALENDARIO (SI-NU)":A$ 
1040 1F A$="S1"IHENS10 


1050 STOP 

3000 FORI=11042 
140 DIM MI$( 2) Miglia) dio fatali) C1 31) ,M6(16) $010 M18(1)=" SI 
121 DEF FNF(Y)=3658Y+INI((Y-1)/4}-INTC34(1N]((Y-1)/100)+1)/4) SUZU Me$(1)=" v 


3030 M3s(1)=" " 

3040 NEXII 

3050 REIUKN 

4UUU REM SUB. SUSILIUTIVA DI KNM 


142 D$=" LU MA ME GI VE SA DU " 
145 FOR 1=1 10 12 
150 READ L(1),M$(1) 


155 NEXI I 
AUTU H=VI-INI(VI/V2)avz 
#UZU KEIURN 


160 FOR 1=1 TO 31 
165 READ C$(I) 
170 NEXT I SRI, 
175 DATA 34.%' GENNAIO (> &B."FERNRALO) Sc84e* (MORTO Li 1. Il pri 
14 30," APRILE "31," MA peso Ù 

O! DALA 30: APRILE ato MASO oi eta istato primo programma. 


185 DATA n 

190 DATA Ol IOBRE "30, "NOVENBRE +34, "DICEMBRE, È 

195 DATA Ruta Net ca 

#00 DATA 10," tene ATO SIR RE 

2410 DATA (BH 20%," Li es Chi vosassazza 

#20 DATA “" 25%," 26%," d/"," 2B"," 29%," 30%," Sl" è 1983 è 
0000802008 


240 PRINT:PRINT 
‘ 1"#PROGRAMMA JULLA®":FRINT 
260 PRINT"OUESTO PROGRAMMA STAMPA UN CALENDARI “:PRINT 


GENNALO FEBBRAIO MARZO 


2 
65 PRINT*GIULLANO PER OGNI ANNO SPECIFICATO ":PRINT ME GI VE ME GI VE HE G1 VE 
275 PRINT"POSTERIORE AL 1583" î 230% 203 « 
310 PRINI:PRINT Hi ; ; viIU N 4 IU 1 
320 INPUT "PER FAVORE SCRIVERE ANNO":Y lè 17 18 È 18 17 18 
360 IF Y<100 IHEN vev+19UU A ; + tI ca 5 24 da 5 
370 IF Y<1583 GOTO 260 7 30 31 
5/5 OPENS,5:CNDS 

382 PRINT APRILE MAGGIO GIUGNO 
583 PRINI na 

384 PRINTTAB(30);"#sse#8* i ME GI VE ME GI VE ME Gl VE 


385 PRINI|AB(30) iVi È 
387 PRINTIAB(30);"aggasesatt ; 7 1 2 3 
390 E=FNF(Y) & 5 6 8 9 to 
395 Vi=F:y2=7:G0SUB4UUO È 59 e URLO: ; 22 da da 
540 D=H si ERene 18 19 2U 21 È se 

4720 1F D=U THENS0O i ESESKEA dti 
480 CA=D 
450 6010505 LUGLIO AGOSIO SETTEMBRE 
UU C1=7 

505 do . 3UB4UUU ME Gì LU MA ME GI VE 
US Vi=y:vp=4:GUSUB VE 

510 1FH=UIHENS4U 

520 1(2)=#8 1 ; é 

530 uvlusty i; i S 13 14 15 16 
sE Lig)>Lo Mi ; ; ZU 21 ee ES 
150 FORB1I= IT042STEPI ; 2) Ch 26 a i 37-55 gu da 30 
560 605UBZ000 

4/0 List(B1) VI 10HRE DLGRNORE 
590 FORI=AIOLA VE 
6UU IM1$(C1)=C$(1) ME GI VE È LU MA ME GLi 
5410 CA=C1+1 

520 NEXII | £ % 6 78 
440 Le=l(B1H1) x san 2 13 16 15 
645 VI=C1:V2=7:605UB4UUO te ts. da 

; IV 20 21 
650 C2=H Us de 2/ 28 È 


6/0 1FC2=UIHENC&=/ 
580 FORI=110L2 


CONVERSIONI 


e sostituzione di ogni STRING$(K,“ at! con 905 PRINISPC(18);M$(B1) :SPCIZ2)M$(HIH1)FSPCC21)} 
SPC(K) M$ (Bli2);6PC(&1)5M$(H1+3) 
Lo 10 FRINI 
i 1 fi 7 PRINI"” “iDo;" ‘€099 n; 
Ho poi ulteriormente modificato il programma per PIRA oto 
i 7 920 PRINT 
poter stampare il calendario su quattro colonne con +1 fici e 
una stampante da 132 caratteri e con la possibilità di pa: ferie 
inserire un breve messaggio augurale. ciù PRINIMISCIAIC 1)? 
#45 NEXIJ 
#5U PRINT" 2%) 
955 FORI=1107 
460 PRINIM2$(1+) 1) 
DIM MIS(42) M28(42),M38(42),M48(42),LC(1Z) (8031) ,M$(12) 965 NEXIJ 
DEF FNF(Y}=365#Y+1N]({Y-1)/4)-INT(30CINIC(Y-))/100)+1)/4) 970 PRINT" "i 
! D$=" LU MA ME Gl VE SA DO " 972 FORIJFIILO? 
FOR 1=1 10 12 974 PRINTM38(1+J-1); 
READ LL), M$(1) 976 NEXTIJ 
NEXI I 978 PRINT” "E 
FOR 1=1 10 31 980 FORJ=1T06 
READ C$(1) 982 PRINTM4$(I+J-1); 
NEXT 984 NEXIIJ 
DASA “ GENNALO ",&8, "FEBBRAIO ",5$i," MARZO *" Bo PRINTM4$(1+6) 
DAIA APRILE ",3t,5 MAGGIO “,$U," GIUGNO “ 788 NEXTI 
DATA LUGLIO ",541," AGOSIO ",50, "SE TEMBRE" 990 NEXTB1 
DALIA , OTTOBRE "“",50, "NOVEMBRE 31, "DICEMBRE " IQUU FORSP=1/1011:PRINI:NEXISP 
DATA ’ pg RE dt "ii E "i © e Gana a 1005 PHINIR5:CLOSES 
DATA ‘ ' dt Pe TE, lo" 4010 PRINT 
DATA 1 ERRE eg Be, 31 Ù (4: uu, 24 1020 INPUT "VUOI UN ALTRO CALENDARIO €(SI-NUO)":A% 
DATA " Bse, Re, 7, BE 1040 lF As="Sl"1HEN310 
FRINI"" 1050 STOP 
PRINI:PRINT 3000 FORI=1T042 
PRINTTAB(11);"#PROGRAMMA JULIA*":PRINT 2010 Mi1s(1)=" “ 
FRINI "QUESTO PROGRAMMA STAMPA UN CALENDARIO":PRINT 3020 MZ$(I Si 
PRINT“GIULLIANO PER OGNI ANNO SPECIFICATO ":PRINT 2020 M3$(1 4 
PRINI"POSTERIORE AL 1583" 3035 M45(1)}=" si 
PRINT:PRINT 2040 NEXII 
INPUT "PER FAVORE SCRIVERE ANNO“; Y JUSÙ RETURN 
1f Y<100 1HEN Y=Y+1900 4000 REIT SUB. SOSILIUTIVA Dl FNM 
lf Y<1585 GOTO 260 4010 H=VI-INI {VI /Ve ra Ve 
GOSUBSUUU 4020 RETURN 
OPENS,5:CMDS 5000 REM OPZIONE INPUI MESSAGGIO 
FORSP=1TO06:PRINT:NEXISP % LUO PRINT 
1FGR$<>" "“"THENPRINTTAB(LU;GK$:G010382 5012 PRINT"1- VUOI SCRIVERE UN MESSAGGIO 7" 
PRINT 5015 PRINT 
FORSP=1T07:PRINT:NEXTSP 5020 PRINT"2- VUOLl RIPETERE QUELLO PRECEDENTE?" 
PRINTTAB(O1); "astenia 5025 PRINT 
PRINTTAB(61);"a “;Yy;" o #" 5030 PRINI"3- NON VUOIl SCRIVERE NIENIE ‘ *“ 
PRINTTAB(61);"#4#444a4ta ta” 5035 PRINT 
F=FNF(Y) 5060 PRINITAB(11)" (PREMERE 1.2 0 3) “; 
V4=F!V2=7:G0SUB4000 5050 INPUI R$ 
D=H 5060 1FR$="1"THENGOSUBSUUL:RETURN 
IF D=0 THEN5S00 5065 IFR e"IHENRKETURN 
C1=D 5070 1FR$="3"]HENGUSUB6USU:RETURN 
GOTOSUS 5080 PRINI"":G0T05010 
C4=7 6000 REM INPUT MESSAGGIO 
V4=y:V2=4:608UB4000 6010 FORI=1T010:GETX$:NEX]:GOSUB6805O0 
1fH=0THEN540 6015 PRINT:PRINT"BATTI IL MESSAGGIO(MAX.79 CARAITERI)" 
L(2)=28 6020 INPUT GR$ 
GOTOSSU 6025 LU=1N1((132-LEN(GR$))/2) 
L(2)=29 6030 RETURN 
FORB1=1T012STEP4 65050 REM AZZERAMENTO VARIABILI 
GOSUB3000 6060 GR$="":LU=0 
Li=Lt(B1) 50/0 RETURN 


FORI=ATOL1 

MI$C(C1)=C$01) 

CISESIA 

NEXII 

Le=L(B1+1) 

Vist 1:vZ=7:G05U84000 

ce=H 

1FCE=UIHENCZ=7 

FORI=110LZ 

M&8(C2)=C8(1) 

ce=cu+t 

NEXII 

La=Lt8t+2) 
21V2=/:G05UB4UUO 


SU lHENCI=7 
FORI=1IOLI 

Mi# (CHIC (1) 
UQ=Cu+1 

NEXIL 

(B1+3) 
U:V2=7:G0SUB4000 


1FC4=OTHENC4=7 
FORI=ITOLA 
MA8(C4)=C$(1) 
C4=C04+1 

NEXTI 
V1=C41V2=/:G0SUB40U0O 
Ci=H 

1FC 1=U01HENC 1=7 
FRINI:PRINT 


Listato 2. Il programma con le ulteriori modifiche. 


DEBUG 


Come realizzare un listato 
bidirezionale 


Molti lettori ci hanno informato della presenza 
di un errore sulla routine del listato bidirezio- 
nale per il VIC 20 pubblicata su PS4. Ecco la 
lettera del signor Ercole Palmeri di Torino. 


Scrivo per informarvi della presenza di un errore 
nel programma “Come realizzare un listato 
bidirezionale” per il VIC 20, presente nel numero 4 
della vostra rivista. 

Leggendo il programma sono arrivato alle seguenti 
linee: 


63100 IF PEEK(SA+5)<>0 THEN SA=SA+1 
63105 GOTO 63100 


mi sono accorto che il programma va in loop. 
La correzione è semplice: basta cancellare la linea 
63105 e sostituire la 63100 con: 


63100 IF PEEK(SA+5)<>0 THEN SA=SA+f1: 
GOTO 63100 


Il programma è molto utile e ben fatto. Saluti e 
complimenti per la vostra eccezionale rivista! II 


COMPUTER CLUB 
TI 99 


MN 


2 0) bi. disponibili 


gratuitamente 


- convenzioni agevolate per l'acquisto 
del tuo home computer 


- aiuto all'utilizzo dell'home computer e 
tanti altri vantaggi che scoprirai 
associandoti 


RIVENDITORI CONVENZIONATI 


COMPUTERWORLD - Tel. 06/460818 
Via del Traforo, 137 - 00100 ROMA 


ESSEMMECI - Tel. 0746/44704 
Via delle Orchidee, 19 - 02100 RIETI 


COMPUDATA - Tel. 02/545560 
Via Botta, 16 - 20135 MILANO 


MED - Tel, 0737/3329 
Via Venanzi, 11-13 - 62032 CAMERINO (MC) 


A TRE - Tel.0424/25105 
Piazzale Firenze, 23 
36061 BASSANO DEL GRAPPA (VI) 


TECNINOVAS COMPUTER Srl - EDP SHOP 
via Emilia, 36 - 56100 PISÀ 
Tel. 050/5025716 


COMPUTER CENTER - Tel. 010/3500797 
Corso Gastaldi, 77/R - 16131 GENOVA 


CENTRO DIFFUSIONE MICRO COMPUTER 
Via Trento, 42B - 27023 VIGEVANO (PV) 


MEV system - Tel. 0461/24886 
Via Grazioli, 59 - 38100 TRENTO 


LEUCI SISTEMI - Tel. 080/9002582 
Via A. Figbeta 
74015 MARTINA FRANCA (TA) 


VISICOM computer - Tel. 0961/471673 
Via Menniti Ippolito, 10 - 88100 CATANZARO 


FRANCO - GIOCHI INTELLIGENTI 
Corso Fogazzaro, 174 
36100 VICENZA - Tel. 0444/42678 


SECA - Tel. 0883/44508 
Via Postumia, 21 - 70059 TRANI (BA) 


C.E.M.E. - Tel.0963/44655 
Via della Pace, 1° Trav, 6 
88018 VIBO VALENTIA (CZ) 


COMPUTER SHOP - Tel. 095/441620 
Via V. E. Orlando, 164-166 - 95127 CATANIA 


IMPEL - Tel. 0522/43745 
Viale Isonzo, 11A - 42100 REGGIO EMILIA 


IMPEL - Tel. - 059/225819 
Viale Emilia est, 16 - 41100 MODENA 


F.Ill BRENNA snc - Tel. 031/540096 
Via Giordano Bruno, 3 - 22100 COMO 


MASH COMPUTER SYSTEM - Tel. 0382/357300 
Via Strada Nuova, 86 - 27100 PAVIA 


Entra anche tu a far parte 
della famiglia 
internazionale 

degli utenti di 

Home Computer TI 


Computer Club Ti 99 
Via delle Orchidee n. 19 
Tel. 0746/44704-5 
02100 RIETI 


8080 PROGRAMMAZIONE 
E PROGETTAZIONE LOGICA 


Il libro descrive l’'implementazione della logica se- 
quenziale e combinatoria con l’uso del linguaggio 
assembly all’interno di un sistema a micro- 
computer basato sull’8080. 
Lo scopo è quello di insegnare ai progettisti 
logici come eseguire in modo nuovo un vec- 
chio lavoro mediante la.creazione di program- 
mi e ai programmatori come la programmazio- 
ne abbia trovato uno scopo nuovo nel progetto 
logico. 
I concetti tradizionali di programmazione in 
linguaggio assembly non sono utili né attinenti 
per usare i microprocessori in applicazioni lo- 
a giche digitali: l’uso delle istruzioni in linguag- 
m—- a: z _ gio assembly per simulare il packages digitale 
È è in tutti i casi errato. 
Il libro chiarifica questi concetti per prima cosa 
9 simulando sequenze logiche digitali, poi illu- 
Tp 2uozevueSOLi strando alcune efficienti soluzioni per spiegare 
ET) maeso we = Oo avoid e l'Uso Corretto dei microcomputer. Un capitolo, 
="; infine, contiene il set completo di istruzioni 
Sr —. NT] dell'8080. 
c > E INUOHSO sepy Ud 


"08081 nonna; sa Sommario 
le» TIT mmuciava uve edo uozensiada ——TSC Introduzione - Linguaggio assembly e logica 
Si —- e 0 - wued 3 digitale - Una simulazione diretta della logica di- 
° "7" 080814 ‘2 || gitale - Un semplice programma - Prospettiva 
ERI n a 5 \ del programmatore - Set di istruzioni - Alcune 
Su - = mie Lebiiirne nic ME 5 > subroutine impiegate comunemente - Codici 
5 1 Hr Pri 9 è di caratteri ASCII. 
IMOELO app rado è zi R 
S-—. __0808 PP end, Da) ’ 
Simit n CEE e 
® A _0BOBI sort ca Pagg. 296 Formato 14,5 x 21 
2 " Loggia 0 — PrezzoL. 19.000 Codice 325P 
3 ? - — VG PP aureo i È 
Modo cery Tee re CA 
Si — O80RIP ttt, DI 
i Re ee] i . « 
Gi - 08081» sonda, Per ordinare il volume 
o ssa? 080) a Seno 8 utilizzare l'apposito tagliando 
iafeo =. Rn pred inserito in fondo alla rivista. 
qeer—_—r—— O86gIn In at 
- “ Und] 
9 = Xn Pe — 3 
n ogg GRUPPO EDITORIALE 
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CONTRIBUTI DEI LETTORI 


Il controllo del codice fiscale 


Riceviamo da Vanni Giacobbi di Casalecchio 
(Bologna) queste interessanti considerazioni 
(oltre alla correzione di un errore) sulla routine 
del codice fiscale pubblicata su PSA. 


Routine della rivista 


Mi sembra che nell’istruzione 10060 ci sia un erro- 
re, probabilmente di battitura: il GOTO deve punta- 
re a 10090 e non a 10110, perché altrimenti, dopo il 
primo passaggio per quella istruzione, si esce dal ci- 
clo 10020-10100 ed i caratteri seguenti non vengono 
controllati. 


Adattamento per Hewlett-Packard 87 


Il listato 1 è la lista del programma adattato all’HP 
87 e un po’ snellito. I cicli 10030-10100 e 10150-10270 
sono fusi in uno solo. La sommatoria S comprende 
tutti i 16 caratteri e poi alla fine viene tolto il doppio 
del contributo del 16.simo carattere, che nella som- 


40 DIM C(16), D(26) 
50 DATA 0,0,0,0,0,0,1,1,0,1,1,0,1,1,1,0 
60 DATA 1,0,5,7,9,13,15,17,19,21,2,4,18,20,11,3,6,8,12, 
14,16,10,22,25,24,23 
70 FOR1I=1 TO 16 @ READ C(I)@ NEXT I 
80 FORI=1 TO 26 @ READ D(1)@ NEXT | 
90 INPUT A$ 
100 GOSUB 140 
110 DISP Z$ 
120 STOP 
130 ! +++++++ CONTROLLO 
140 Z$="ERRATO” @ S=0 
150 IF LEN (A$) <> 16 THEN RETURN 
160 FOR 1=1 19 16 
170 B$=A$ll pevd 
180 Pala ANDIESTÀ. OR B$>"Z") 
THEN RETUR tag 
190 IF C(1)=1 AME ERO OR B$>"“9") 
THEN RETUR 
200 IF RMD (1,2)=0 THEN 230 
210 IF C(I)=0 THEN DS=D(NUM (B$)—64) 
ELSE DS=D(VAL (B$)+1) 
220 GOTO 240 
230 IF C(1)=0 THEN DS=NUM (B$)—65 
ELSE DS=VAL (B$) 
240 S=S+DS 
250 NEXT I 
260 IF RMD (S-2+DS,26)=0 
THEN Z$="GIUSTO” 
270 RETURN 


Listato 1. 


matoria dovrebbe comparire col segno negativo. Così 

il resto R, se il CF è corretto, deve essere nullo. 
Differenze di software: 

e il carattere “!” è sinonimo di REM; 

e il carattere “@” corrisponde a “:”, e non interrom- 
pe quello che segue THEN o ELSE: l’espressione: 
IF A=B THEN A1=BI1 @ A2=B2 ELSE A1=C1 
@ A2=C2 è svolta secondo lo schema: 

IF A=B THEN [ A1=B1 @ A2=B2 ] 
ELSE [ A1=C1 @ A2=C2 ]; 

e la funzione A$[I,I] corrisponde a MID(A$,I,1); 

e la funzione RMD(N,K) dà il resto della divisione 
N/K; 

e la funzione NUM(B$) equivale a ASC(B$); 

e il comando DISP (display) equivale a PRINT. 


Estensione della routine e autocorrezione del CF 


Dall’articolo ho dedotto una cosa molto interessan- 
te, che però non viene detta: uno qualsiasi dei 16 
caratteri che compongono il CF può essere ricavato 
dagli altri 15. Si può sfruttare questa proprietà per 
correggere automaticamente alcuni errori. 

Il listato 2 è la lista di un programma più completo 
in cui: 

e vengono controllati i caratteri corrispondenti al 
mese, che deve essere uno di quelli della tabella 1, 
e alla prima cifra del giorno, che non può essere 
maggiore di 7; 

e se viene rilevato un errore in un carattere ben de- 
terminato, il carattere viene sostituito, ricavandolo 
dagli altri 15, e viene scritto il CF corretto; 

e se invece l’errore non è imputabile a un carattere 
ben determinato, e quindi non è correggibile, allo- 
ra viene segnalato; questo si verifica quando 
R<>0, quando si hanno errori su 2 caratteri 0 
quando il 16.simo carattere, ricavato dagli altri 15, 
non rispetta le regole proprie della sua posizione. 
Con questo programma vengono corretti immedia- 

tamente gli errori più banali, del tipo 1-1, O-0, D-0, 

B-8, e altri errori di trascrizione 0 dovuti a caratteri 

mal leggibili. * CH 


Note sul pr ogramma 


e I segni S(I) dei componenti DS della sommatoria S 

«IA in DATA; 
1 mes bili M$(I) sono iù ; . 

© la ili 1a K=numero d’ordine del 
carattere che dà errore, se l'errore è il primo, altri- 
menti manda alla stampa ERRATO; 

e la subroutine ERM controlla il carattere 

e la subroutine COR ricava il carattere da S 


del mese; 
ostituire 


105 


__ _ __—__ ili «i mao ec 60 


CONTRIBUTI DEI LETTORI 


480 GOTO 520 

490 IF RMD (K,2)=1 THEN GOSUB F @ B$=VAL$ (1-1) 
ELSE B$=VALS$ (R) 

500 IF K=10 THEN L$="7"ELSE L$="9" 

510 IF B$>L$ THEN RETURN 


dagli altri 15, ne controlla la validità e, se è giusto, 
lo sostituisce nel CF; 

e la subroutine F, che serve a COR, ricerca tra i va- 
lori di D(I) quello corrispondente a un certo R, 


ossia legge all’inverso la tabella 2; 520 A$[K,K]=B$ 
© il programma è ricorsivo, ossia dopo aver fornito 530 Z$=A$ 
la risposta relativa ad un CF, non esce, ma ne chie- 540 RETURN 


550 F: FORI=1 TO 26 
560 IF R=D(1) THEN RETURN 
570 NEXTI 


de un altro. 


40 DIM C(16),D(26),S(16),M$(12) 

50 DATA 0,0,0,0,0,0,1,1,0,1,1,0,1,1,1,0 

60 DATA 1,0,5,7,9,13,15,17,19,21,2,4,18,20,11,3,6,8,12, 
14,16,10,22,25,24,23 

70 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,-1 

80 DATA A,B,C,D,E,H,L,M,P,R,S,T 

90 FOR 1=1 TO 16 @ READ C(I)@ NEXT | 


Listato 2. 


L’esempio 1, ottenuto con qualche modifica per la 
stampa, dà un esempio di correzione del CF citato 
nell’articolo per tutte le 16 posizioni. 


100 FOR |=1 TO 26 @ READ D(I)@ NEXT | 

110 FOR|=1 TO 16 @ READ S(1)@ NEXT | 

120 FORI=1 TO 12 @ READ M$(I)@ NEXT | 

130 CLEAR 

140 INPUT A$ 

150 Z$="ERRATO” @ K=0 @ S=0 

160 IF LEN (A$) <> 16 THEN 330 

170 FORI=1 TO 16 

180 B$=Asl,I] 

190 IF l<> 9 THEN 210 

200 GOSUB ERM @ IF M=1 THEN ERR 
IF C(I)=0 AND (B$<"A” OR B$>“Z”) THEN ERR 

220 IF 1=10 THEN L$="7” ELSE L$="9" 

230 IF C(1)=1 AND (B$<“0” OR B$>L$) THEN ERR 

240 IF RMD (1,2)=0 THEN 270 

.250 IF C(1)=0 THEN DS=D(NUM (B$)—64) 
ELSE DS=D(VAL (B$)+1) 

260 GOTO 280 

270 IF C(1)=0 THEN DS=NUM (B$)-65 
ELSE DS=VAL (B$) 

280 S=S+S(1)xDS 

290 NEXT | 

300 R=RMD (5,26) 

310 IF K=0 AND R=0 THEN z$= “GIUSTO” 


320 IF K>0 THEN GOSUB 
330 DISP Z$ la SOR 


340 GOTO 140 
350 ERR:!+++4+4+++ ERRORE 
360 IF K=0 THEN K=1 @ GOTO 290 ELSE 330 


370 ERM:!+++4+4+4++ CONTROLLO M 
380 FOR J=1 TO 12 i 


390 IF B$=M$(J) THEN M=0 @ RETURN 

400 NEXT J 

410 M=1 @ RETURN 

420 COR: ! +++++++ CORREZIONE CARATTERE 
ERRATO 

430 R=RMD (26—S(K)xR,26) 

440 IF C(K)=1 THEN 490 

450 IF RMD (K,2)=1 THEN GOSUB F @ B$= 
CHR$ (1+64) ELSE B$=CHR$ (R+65) 

460 IF K<> 9 THEN 520 

470 GOSUB ERM @ IF M=1 THEN RETURN 
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BSCMRA47B10A9520 
GIUSTO 


.SCMRA47B10A9520 
BSCMRA47B10A9520 


B.CMRA47B10A9520 
BSCMRA47B10A9520 


BS.MRA47B10A9520 
BSCMRA47B10A9520 


BSC.RA47B10A9520 
BSCMRA47B10A9520 


BSCM.A47B10A9520 
BSCMRA47B10A9520 


BSCMR.47B10A9520 
BSCMRA47B10A9520 


BSCMRA.7B10A9520 
BSCMRA47B10A9520 


BSCMRA4.B10A9520 
BSCMRA47B10A9520 


BSCMRA47.10A9520 
BSCMRA47B10A9520 


BSCMRA47B.0A9520 
BSCMRA47B10A9520 


BSCMRA47B1.A9520 
BSCMRA47B10A9520 


BSCMRA47B10.9520 
BSCMRA47B10A9520 


BSCMRA47B10A.520 
BSCMRA47B10A9520 


BSCMRA47B10A9.20 
BSCMRA47B10A9520 


BSCMRA47B10A95.0 
BSCMRA47B10A9520 


OSCMRA47B10A9520 
BSCMRA47B10A9520 


BOCMRA47B10A9520 
BSCMRA47B10A9520 


BSCMRAX7B10A9520 
BSCMRA47B10A9520 


BSCMRA4XB10A9520 
BSCMRA47B10A9520 
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Il signor Giorgio Cortelazzo di Padova aggiun- 
ge queste precisazioni sul controllo del codice 
fiscale. 


Nell’articolo sul controllo del codice fiscale si affer- 
ma che alcuni caratteri sono numeri. In realtà, 
“normalmente” sono numerici. Infatti bisogna tener 
conto dei codici fiscali omonimi. 

Ad esempio io e il signor Cortese Giorgio, nato a 
Padova il mio stesso giorno, avremmo come codice 
fiscale CRTGRG58C30G224E. 

Per evitare questa ambiguità, la legge prevede che 
vengano sostituiti ai caratteri numerici dei caratteri 
alfabetici. 

Se ricordo bene le sostituzioni vanno effettuate da 
destra utilizzando la tabella seguente: 


PUWNEH_O 
borez ZE 
\o0 0 LAU 
<CHWA 


Non conosco esattamente tuttavia il numero di ca- 
ratteri che vanno sostituiti: mi pare che dovrebbero 
essere mantenute le sostituzioni fino a rendere i codi- 
ci diversi. 

Ad esempio: 

CRTGRG58C30G2NP + carattere di controllo 
e non 
CRTGRG58C30G2N4 + carattere di controllo. 


Se così non fosse bisognerebbe controllare che, do- 
po il primo carattere non numerico che sostituisce un 
carattere numerico, tutti i successivi siano per forza 
alfabetici. 

Da notare che queste sostituzioni non alterano il 
carattere di controllo e permettono sempre una sem- 
plice decodifica del codice (ad es. G22EE... G224E) 
univocamente. II 


Per ‘lavorare’ al meglio con il Pet e l'M20 


Paolo e Carlo Pascolo 


IL BASIC DEL PET E DELL M20 


Il personal computer rappresenta oggigiorno, 
oltre che un valido aiuto nel lavoro, anche 
un'irresistibile tentazione. Può capitare, così, che 
qualcuno si trovi a disporre di un Commodore 0 
di un M 20 Olivetti senza conoscerne appieno 
il linguaggio e le possibilità. Questo volume 
vuol rappresentare proprio un prezioso 
supporto per chi debba, o voglia imparare a 
programmare in Basic su questi strumenti 

di lavoro, gioco o studio: comandi, 

istruzioni, informazioni, consigli... fino a 
diventare davvero ‘padroni’ di due dei più 

diffusi Personal Computer. 


226 pagine. Lire 16.000 
Codice 336 D 


Per ordinare il volume 
utilizzare l’apposito tagliando 
inserito in fondo alla rivista 


GRUPPO EDITORIALE 
JACKSON 
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Utilizzare le routine 
della cartridge del VIC 


Il signor Moncecchi Giovanni di Tresenda 
(SO) ci invia questa esperienza. 

In fondo alla sua lettera pubblichiamo il nostro 
commento. 


Quando inseriamo qualche cartridge-gioco nel con- 
nettore del VIC e poi lo accendiamo, avremo il no- 
stro computer trasformato in una consolle videoga- 
me. Questo succede perché la routine di inizializza- 
zione del sistema operativo verifica se all’indirizzo 
40960 è presente un programma; in caso affermativo 
passa ad eseguire il programma indirizzato dai primi 
due byte di questa memoria. 

Se però inseriamo la ROM a VIC acceso, il siste- 
ma operativo non è più in grado di verificarne la pre- 
senza e quindi possiamo utilizzare le subroutine pre- 
senti tramite il funzionamento in Basic. In particolare 
voglio presentare le possibilità che ci offre il cartridge 
VIC-1908 cioè la ROM con il gioco del poker, che 
negli esempi verrà sfruttata per creare e disegnare le 
carte da gioco, così che possiamo disegnare una qual- 
sivoglia carta in un punto stabilito dello schermo. 

Vi è però il problema che riguarda l’inserimento 
del cartridge che deve essere effettuato a VIC acceso 
e che a volte può bloccare il controllo tramite tastie- 
ra; se ciò avviene il cursore smette di lampeggiare e 
in questo caso non rimane che ripetere l’operazione. 

Una volta ottenuto il funzionamento normale con 
cartridge inserito dobbiamo spostare il puntatore Ba- 
sic per far posto al nuovo generatore di caratteri: 


POKE 44,24: 
POKE PEEK(44)+256+PEEK(43)-1,0: NEW 


La seguente istruzione creerà il nuovo generatore 
di caratteri, riposizionerà il puntatore relativo e posi- 
zionerà lo schermo in maniera corretta: 


SYS 40975: POKE 36864,12 


Ora abbiamo a disposizione il nuovo set grafico, 
che non crea problemi in quanto ha sempre i numeri 
ed i caratteri maiuscoli, ma che possiamo controllare 
provando a stampare i caratteri semigrafici con i tasti 
SHIFT e Commodore. Ora carichiamo questo pro- 
gramma che ci memorizza una piccola subroutine a 
partire dalla locazione 830: 
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Il numero che stabilisce la carta, cioè quello che bisogna 
mettere nella locazione 1002 è abbastanza semplice da 
capire se trasformato in binario come nell’esempio: 


bit più significativi 
0000 Picche 

0001 Cuori 

0010 Quadri 

0011 Fiori 


bit meno significativi 
0000 nullo 
0001 asso 
0010 due 
0011 tre 
0100 quattro 
0101 cinque 
0110 sei 
0111 sette 
1000 otto 
1001 nove 
1010 dieci 
1011 fante 
1100 regina 
1101 re 

1110 nullo 
1111 nullo 


Se abbiamo il numero 18 che in binario è 00010010 


corrisponde a 0001 0010 
cuori due 


due di cuori 


Figura 1. 
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10 FOR V=830 TO 849 

20 READ N: POKE V,N 

30 NEXT 

100 DATA 173,232,3,133,97,173,233,3,133,98 
110 DATA 173,234,3,141,12,3,32,171,160,96 


Dopo aver fatto girare questo programma, carican- 
do i seguenti puntatori potremo disegnare la carta 
voluta nella posizione desiderata: 


POKE 1000, (tra 0 e 18) Posiziona la carta in oriz- 
zontale 

POKE 1001, (tra 0 e 16) Posiziona la carta in verti- 
cale 


POKE 1002, (figura 1) Decide la carta 


Per economizzare lo spazio di memoria disponibile 
possiamo cancellare il precedente programma in 
quanto la routine in linguaggio macchina rimarrà di- 
sponibile al richiamo SYS 830. 

Questo programma ci stampa sul video un mazzo 
di 52 carte: 


10 FOR G=0 TO 16 STEP 8 

20 FOR T=0 TO 18 

30 D=D+1 

40 A=D AND 15: IF A>13 THEN D=D+3: 
IF D>63 THEN END 

50 POKE 1000,T: POKE 1001,G: POKE 1002,D: 
SYS 830 

60 NEXT 

70 NEXT 


x | è 9 

Ora che abbiamo le carte possiamo giocare 0 no- 

Dimenticavo di dire che le carte vengono stampate 
con il colore corrispondente. 


L’idea è molto buona, meno il sistema usato: inseri- 
re la cartuccia a VIC acceso. Poiché quasi tutti i cir- 
cuiti integrati sono del tipo MOS, questo può ccp 
tare facilmente la rovina della cartuccia 0 peggio de 
VIC stesso. I problemi nascono infatti dal fatto che se 
una espansione, generalmente di giochi, è inserita nel- 
lo slot, questa all'accensione intercetta la routine di 
COLD START, sostituendone una propria che non 

‘ restituisce più il controllo al Basic. Questo però avvie- 
ne solo se la cartuccia presenta la sequenza di caratteri 
AOCBM a partire dal byte $A00A. La soluzione per- 
ciò sarebbe non quella di inserire la cartuccia col VIC 
acceso, ma di spostare in un’altra zona di memoria 
l'allocazione della ROM-gioco, servendosi dei ponti- 
celli presenti nel circuito stampato. 

In questo modo l’idea ci sembra interessante e so- 
prattutto applicabile senza rischi per il computer. MM 
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10 FOR V=830 TO 849 

20 READ N: POKE V,N 

30 NEXT 

100 DATA 173,232,3,133,97,173,233,3,133,98 
110 DATA 173,234,3,141,12,3,32,171,160,96 


Dopo aver fatto girare questo programma, carican- 
do i seguenti puntatori potremo disegnare la carta 
voluta nella posizione desiderata: 


POKE 1000, (tra 0 e 18) Posiziona la carta in oriz- 
zontale 

POKE 1001, (tra 0 e 16)  Posiziona la carta in verti- 
cale 


POKE 1002, (figura 1) Decide la carta 


Per economizzare lo spazio di memoria disponibile 
possiamo cancellare il precedente programma in 
quanto la routine in linguaggio macchina rimarrà di- 
sponibile al richiamo SYS 830. 

Questo programma ci stampa sul video un mazzo 
di 52 carte: 


10 FOR G=0 TO 16 STEP 8 

20 FOR T=0 TO 18 

30 D=D+1 

40 A=D AND 15: IF A>13 THEN D=D+3: 
IF D>63 THEN END 

50 POKE 1000,T: POKE 1001,G: POKE 1002,D: 
SYS 830 

60 NEXT 

70 NEXT 


Ora che abbiamo le carte possiamo giocare o no? 
Dimenticavo di dire che le carte vengono stampate 
con il colore corrispondente. 


L’idea è molto buona, meno il sistema usato: inseri- 
re la cartuccia a VIC acceso. Poiché quasi tutti i cir- 
cuiti integrati sono del tipo MOS, questo può compor- 
tare facilmente la rovina della cartuccia o peggio del 
VIC stesso. I problemi nascono infatti dal fatto che se 
una espansione, generalmente di giochi, è inserita nel- 
lo slot, questa all'accensione intercetta la routine di 
COLD START, sostituendone una propria che non 

- restituisce più il controllo al Basic. Questo però avvie- 
ne solo se la cartuccia presenta la sequenza di caratteri 
AOCBM a partire dal byte $A00A. La soluzione per- 
ciò sarebbe non quella di inserire la cartuccia col VIC 
acceso, ma di spostare in un’altra zona di memoria 
l'allocazione della ROM-gioco, servendosi dei ponti- 
celli presenti nel circuito stampato. 

In questo modo l’idea ci sembra interessante e so- 
prattutto applicabile senza rischi per il computer. W 


Pe_lrltt_—<«aa £gm@e_oA_ioln=. '= === 
CEDOLA DI COMMISSIONE LIBRARIA 


re 


CEDOLA DI COMMISSIONE LIBRARIA 


| Da inviare a Gruppo Editoriale Jackson - Via Rosellini, 12 - 20124 Milano 


PORTE RINANTA 0) i RI PMI Lia SEAL 


Da inviare a Gruppo Editoriale Jackson - Via Rosellini, 12 - 20124 Milano 


Nome Cognome 


Nome Cognome 


Indirizzo 


Indirizzo 


Provincia 


Fartita L.V.A. (indispensabile per le aziende) 


Provincia 


imp imma 


Partita I.V.A. (indispensabile per le aziende) 


Cap. 


SI richiede l'emissione della fattura U 


Î inviatemi i seguenti libri: 


Invlatemi i seguenti libri: 
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Vendo CBM 4032 con floppy 2031, registratore e 
sonoro usati pochissimo. Con programmi vari e gio- 
chi tra cui la ricezione visiva dei giornali commer- 
ciali. Telefonare ore serali a Alessandro Consonni, 
Via Cà Granda 18, 20162 Milano, tel. 02/6438566. 


Vendo o scambio programmi per Commodore GL. 
Telefonare ore ufficio 0 scrivere a Claudio Cambiè, 
Via Fatebenefratelli 26, 20075 Lodi, tel. 0371/ 
52402. 


Vendo VIC 20 + cabinet espansioni VIC 1020 + 
3K super expander + 8 K RAM + 6 catridges di 
giochi: Aliew; Road Race; Adventureland; Jelly 
Monsters; Star Battle; Sargon I! a L. 800.000 tratta- 
bili. Ugo Merlone, P.za Galimberti 1, 10131 Torino, 
tel. 011/9364756. 


Compro per VIC-20 cabinet di espansione 
TCI2055-00 solo vera occasione. Scrivere con of- 
ferta a Lauro Michelotti, Via Boboli 1a, 51017 Pe- 
scia (Pt). 


Software VIC 20. Vantaggiosi prezzi vendo vasto 
assortimento. Richiedere documentazione e listino 
prezzi. Assicuro massima serietà. Alberto Locatelli, 
Via Sardegna 31, 20146 Milano, tel. 02/496576. 


Vendo VIC 20 6 K RAM + Joystick + Superexpan- 
der con 3 K RAM + Programmer AID + Vicgraf + 
CN2 + Cabinet espansione 6 schede + 2 cartucce 
giochi + testi vari o permuto tutti gli accessori con 
cartucce giochi. Opipari Giuseppe, Via Saint Bon 
16, 20100 Milano, tel. 4121196. 


Vendo VIC 20 + registratore + 3 Kramsoperex + 
16 K RAM + Joystick + 4 giochi su cartuccia e 10 
giochi su nastri + manuali e testi vari per imparare 
a programmare. ll tutto nuovo, a sole L. 1.250.000 
(oltre 25% in meno del costo). Stefano Guarneri, 
Via Bembo 14, 26100 Cremona, tel. 0372/27902 
ore pasti. 


Vendo per VIC (3 K byte - 8 K byte) e PET 2001 
(word processing) utilities varie, giochi in cassetta o 
disco. A richiesta si invia ampia documentazione. 
Si produce software anche su commissione. Carlo 
Zanini, Via Largo Paolo Sarpi 17, 26100 Cremona, 
tel. 27498. 


Vendo VIC 20 a prezzo eccezionale di L. 450.000 
incluso manuale in inglese ed italiano + trasforma- 
tore + 2 catridges (Scacchi, Space Invaders), prez- 
zo trattabile. Telefonare dopo le 20 a Daniel Pal- 
macci, Via Stringher 31, 00191 Roma, tel. 06/ 
3274976. 


Per VIC 20, vendo-compro-scambio molto software 
solo per posta e su cassetta. Liste gratis a chi man- 
da le sue, oppure a L. 1.000. Cerco 8 K a buon 
prezzo. Ho anche molti programmi in LM anche 
originali inglesi. Giorgio Ferrario, Via Adua 1, 21052 
Busto Arsizio (Va). 


Vendo prog. magazzino art. 1500 per CBM 64. Per 
informazioni Elisabetta Lovino, Via S. Saffi 7, 
70037 Ruvo di Puglia (Bari), tel. 080/812832. 


Vendo fantastici programmi in L.M. per VIC 20 in 
configurazione base o espanso fino ad 8 K. Il tutto 
a prezzi stracciatissimi!!! Per ricevere la lista inviare 
L. 500. Contatto solo in zona Milano. Rispondo a 
tutti. Massimiliano Bastoni, Via S. Sofia 8, 20122 
Milano, tel. 806502. 


Vendo VIC 20 completo alimentatore interfaccia vi- 
deo + unità cassette C2N + espansione 16 K + 
manuale italiano-inglese + introduzione al Basic + 
2 software utility. Tutto garantito a L. 750.000 tratta- 
bili. Daniele Ghiselli, Via Enrico Toti 54, 51016 
Montecatini T. (Pt), tel. 0572/71765 ore ufficio. 


Vendo per VIC 20: Busi Board 7 slot a L. 100.000; 
luci rotanti a L. 40.000; Tool-kit a L. 30.000; Assem- 
bler a L. 30.000; Hi-Res a L, 45.000; programmato- 
re di Eprom (2516-2716) a L. 30.000; tutte le cas- 
sette giochi a L. 10.000 l'una; Hi-Res con Basic in 
italiano a L. 55.000. Nicola Pedroli, Via Vigevano 
36, 20010 Bareggio (Mi), tel. 9013314. 


Compro per PET-CBM 3032 scheda grafica VG 32. 
Cerco inoltre numero di gennaio 1982 (N° 24) di 
BIT. Telefonare ore pasti o scrivere a Giorgio Raf- 
fagli, Via Veneziano 5, 20139 Milano, tel. 5397853. 


Acquisto espansioni 8/16 K per VIC 20, Cabinet o 
Memory Expansion Board, Stampante ad aghi. So- 
lo se in buono/ottimo stato. Lorenzo Giacchello, Via 
Marchese della Rocca 4, 10074 Lanzo Torinese 
(To), tel. 0123/28621. 


Vendo VIC 20; Cabinet espansione; cartucce 16 K; 
Progammeraid; Superexpander; Vicgraf; 2 cartucce 
giochi; libri e manuali vari. Valore acquisto 2 milioni, 
vendo a L. 1.200.000. Usato pochissimo. Opipari 
Giuseppe, Via Saint Bon 16, 20100 Milano, tel. 
4121196. 


Vendo (zona Palermo) programma per VIC 20 che 
riduce sistema integrale totocalcio composto di 
doppie e triple. Il programma accetta qualunque 
condizione. La prova si fa a casa dell'inserzionista. 
Bruno Cardella, Via Calabria 4, Lotto 43, 90100 
Palermo, tel. 512302. 


Vendo Commando per i mod, 4000 e 8000, su na- 
stro L. 80.000, su disco 9000, su EPROM L. 
100.000. Word processor con manuale in italiano 
per 3032 e 3032 modificato a 4032 su disco L. 
150.000. Vendo inoltre programmi corretti e funzio- 
nanti apparsi su qualsiasi rivista del settore perso- 
nal su nastro L. 15.000, su disco L. 20.000. Spese 
postali escluse. Massimo Rigoni Savioli, Via A. Dia 
47, 35031 Abano T. (Pt), tel. 049/811389. 


Scambio programmi per VIC di vario genere e di 
capacità. Cercasi programma per l’anti-copy e l’an- 
ti-list. Inviate vostra lista dei programmi, io invierò 
la mia. Risponderò a tutti. Roberto Oselladore, Via 
Fausta, 136/A-5, 30010 Ca' Savio (Venezia), tel. 
966923 da settembre. 


Vendo/cambio programmi per VIC 20 a prezzi bas- 
sissimi. Alcuni esempi: Boss-Traxxamol Gridrunner 
Bonzo ecc. Richiedere liste gratuite. Giuseppe Ma- 
scali, Via R. Margherita 573, 98028 S. Teresa Riva 
(Me), tel. 791692. 


Scambio software ingegneria civile per Commodore 
3-4-8032 anche zone sismiche. Ing. Alvaro Albani, 
Via Castelfidardo 17, 47037 Rimini, tel. 0541/ 
25765. 


Vendo programma contabilità 16 K per ZX 81 aL. 
20.000 + cartuccia Programmer's Aid per VIC 20 a 
L. 30.000. Antonio Riccardelli, Via Osoppo 5, 
01100 Viterbo, tel. 0761/224410. 


Cambio/vendo programmi VIC 20, traduzione inte- 
grale istruzioni d'uso cartucce VIC 1211 - VIC 
1212, introduzione al Basic (parte I). Rispondo a 
tutti. Luigi De Negri, Via Puggia 22, 16131 Genova. 


Vendo VIC 20 Commodore + registratore per lo 
stesso + manuale, ancora tutto imballato a L. 
450.000. Telefonare solo se in Firenze o provincia. 
Alberto Cencetti, Via Delle Montalue 14, 50141 Fi- 
renze, tel. 450064. 


Vendo causa regalo indesiderato VIC 20 + regi- 
stratore + Joystick + manuali e cavi di connessio- 
ne, il tutto nuovissimo a L. 450.000 intrattabili. Tele- 
fonare ore 20 e chiedere di Franco Bolli, Via Pasco- 
li 4, 20031 Cesano Maderno, tel. 0362/501204. 


Gruppo di utenti Commodore 64 cerca altri utilizza- 
tori disposti a scambiare software ed esperienze. 
Luciano Cuneo, Via Emilio Lepido 46, 00175 Ro- 
ma, tel. 06/7491542. 


Cerco professori CMB 67 per scambio informazioni 
e programmi. Giochi (Gridrunner ecc.) e utilità (gra- 
fica). Osvaldo Stark, Piazza S. Vigilio 7, 39012 Me- 
rano (Bz). 


Scambio programmi per VIC 20 e contatto persone 
interessate all'hardware, posseggo libro “VIC 20 in- 
terfacing BLBE Book”. Lucio Rota, Via U. Levi 5, 
42100 Reggio Emilia, tel. 0522/30155. 


VIC 20 vendo oltre 100 giochi, programmi cartuccia 
grafica, per gestione casa, rubrica telefono e ap- 
puntamenti, utility (gratis per chi acquista) con 
espansione o senza. VIC Revealed in italiano. Pie- 
tro Scalzitti, Via Del Ridotto 9, 10147 Torino, tel. 
011/250930. 


Vendo-scambio software su nastro per VIC 20. In- 
vio liste per L. 1.200 o gratis se inviate vostre liste. 
Cerco canucce VIC 20. Ho circa 250 programmi 
anche LM e originali. Vendo tutte le riviste Video- 
giochi. Giorgio Ferrario, Via Adua 1, 21052 Busto 
Arsizio (Va). 


Per VIC 20 vendo alta risoluzione a L. 45.000, Bus 
Board 7 Slot a L. 100.000, programmatore di 
Eprom a L. 70.000, luci rotanti programmabili 14 vie 
a L. 60.000. Programmo Eprom 2516. Nicola Pe- 
droli, Via Vigevano 36, 20010 Bareggio (Mi), tel. 
9013314. 


QUANDO JACKSON 
NON E SOLO 
ELETTRONICA E 
INFORMATICA. 


Strumenti Musicall è un'altra" rivista 
Jackson, ma conlastessa autorevolezza e 
professionalità delle riviste specializzate 
in elettronica e informatica. 

È il mensile più letto dai professionisti 
della musica, dagli appassionati di stru- 
menti musicali, tradizionali ed elettronici. 
Servizi speciali e test su singoli strumenti 
dai più diffusi ai più strani; articoli didatti- 
ci, consigli pratici, analisi di mercato, in- 
terviste, novità etante altre rubriche costi- 
tuiscono il prezioso contenuto di Stru- 
menti Musicali. 

La rivista che è ormai un simbolo per tutti 
coloro che amano non solo la musica, ma 
i mezzi per studiarla, comporta, eseguirla. 
Giunta al quinto anno di vita, Strumenti 
Musicali è la rivista del Gruppo Editoriale 
Jackson con tirature da vero e proprio 
mass-media. 

Strumenti Musicali: l'appuntamento men- 
sile per chi esige professionalità, nell'edi- 
toria musicale. 


GRUPPO EDITORIALE 
JACKSON 


Vendo per VIC 20 16 K RAM a L. 140.000; 8 K 
RAM a L. 85.000; Modulo espansione Artom 7 Slot 
a L. 200.000; Programmer's Aid Pack a L. 35.000; 
Forth Cartridge a L. 75.000. A chi acquista tutto 
regalo Vic Reviled e Vicreference guide. Vittorio 
Godio, Via Roma 87, 47042 Cesenatico, tel. 0547/ 
82036. 


CMB 64 e VIC 20 vendo interessantissimi program- 
mi. Assicuro una risposta a tutti. Chiedere la lista 
allegando L. 300 in francobolli. Ctaudio Marchion- 
delli, Via Libertà 3, 33010 Raspano (Ud), tel. 0432/ 
852343. 


Vendo per VIC 20 giochi su cartuccia; Jupiter Lan- 
der e Star Battle e programmi su nastro di cui alcu- 
ni originali americani in linguaggio macchina. Tele- 
fonare dopo le ore 17.30 a Paolo Lambri, Via Alfieri 
60, 20099 Sesto San Giovanni, tel. 2421130. 


Vendo CBM-64 nuovissimo + Joystick + interfac- 
cia registratore memoria 64 K + varie capacità gra- 
fiche e sonoere a L. 750.000 (risparmio su prezzo 
listino = L. 300.000). Telefonare ore pasti ad Ales- 
sandro Fogar, Via Venezia 26, 34073 Grado (Go), 
tel. 0481/768655. 


Cerco possessori di VIC 20 per cambio di program- 
mi. Cerco programma di listino prezzi codice forni- 
tori e con possibilità di registrazione di fatture. |l 
tutto per un piccolo negozio (200 articoli). Roberto 
Oselladore, Via Fausta 136/a int. 5, 30010 Ca' Sa- 
vio (Ve), tel. 966923. 


Vendo VIC 20 in perfette condizioni completo di 
manuali ed imballaggio originali a L. 450.000. Tele- 
fonare ore serali a Tarcisio Coiawiz, Via Vitt. Vene- 
to 54, 39100 Bolzano, tel. 0471/43179. 


Vendo per VIC 20 espansione video 40 colonne 
con 32 K RAM memoria compatibile Videotex, 
mantiene colori e grafica VIC con ulteriori possibili 
tà, L. 500.000 intrattabili. Stampante VIC 1515 aL. 
500.000. Aldo Albergucci, Via Brigata Marche 11, 
31015 Conegliano (Tv), tel. 0438/23512. 


VIC 20 software possiedi un VIC e sei un princi- 
piante? Mandami il tuo indirizzo e ti invierò una 
cassetta in contrassegno a L. 15.000 contenente 
35 programmi di giochi utili e dimostrativi. Grassi G. 
Carlo, Via Vasto 81, 46044 Goito (Mn), tel. 0376/ 
607239. 


Cervo nuovi utenti VIC 20 per formazione gruppo 
acquisto programmi in società e scambio consigli. 
Gennaro Galante, Via Caravaggio 65, 80043 Agro- 
poli (Sa). 


Cambio software per VIC 20. Contatto “Vichinghi” 
per creazione Vic-club. Scrivere ad Amedeo Fasa- 
no, Res. Sagittario MI 2, 20090 Segrate (Mi). 


Vendo PET 2001 8 K byte unità a cassette e video 
incorporati in perfetto stato con manuali e cassette 
giochi a L. 650.000. Massimo Caracciolo, Via Mon- 
Signor Pini 54, 00125 Roma, tel. 06/6055696. 


Vendo programmi per VIC 20 su cassetta. Richie- 
dere elenco allegando francobollo o telefonare ore 
pasti. Alessandro Commisso, Via Montebianco 12, 
20090 Cesano Boscone (Mi), tel. 02/4500698. 


Vendo stampante VIC 1515 nuovissima, completa 
di imballaggio e libretto di istruzioni a L. 400.000. 
Telefonare ore pasti (solo zona di Milano) a Ales- 
sandro Commisso, Via Monte Bianco 12, 20090 
Cesano Boscone (Mi), tel. 4500698. 


VIC 20 software scambio o vendo programmi per 
VIC 20 + espansioni. Inviatemi il vostro indirizzo 
oppure le vostre liste, invierò le mie. Giancario 


Grassi, Via Vasto 81, 46044 Goito (Mantova), tel. 
0376/607239. 


Vendo listati per VIC 20 a L. 2.000 ogni 5 acquistati 
uno in regalo. Progr.: Star War, grafica, matemati- 
ca, battaglia navale, rinocerente, VIC medico, NIM, 
orologio, tastiera musicale, briscola, tiro al drago. 
Massimo Gusso, Viale Felissent 32, 31020 Lance- 
nigo (Tv), tel. 62969. 


Vendo VIC 20 + unità cassette C2N + 2 manuali + 
50 programmi + cartuccia scacchi a L. 600.000 
trattabili. Telefonare a Mosca Valentino, Via Cassia 
1216 00189 Roma, tel. 06/3765394. 


Cerco programmi di ogni genere listati o cassetta 
per Commodore 64. Fabrizio o Gianluca Verona, 
Via Lorenzo Rocci 14, Roma, tel. 06/5376146. 


Vendo programmi per VIC 20 su cassetta. Massima 

serietà. Per informazioni e lista programmi scrivere 

inviando L. 350 per spese postali a Ivan Gaboli, Via 

pr Marzo 228/A, 28100 Novara, tel. 0321/ 
0451. 


Scambio software per VIC 20. Biblioteca di oltre 
500 programmi. Astenersi perditempo e non inte- 
ressati. Amos Aimi, Via Zanella 11, 43015 Nocetto 
(Pr). 


Vendo VIC 20 + registratore 2CN + superespan- 
sione (3 K + grafica) + cartridge gioco poker + 
manuali e tutto il software fatto su cassetta a L. 
600.000. Stefano Albanesi, Via Leopardi 10, 20123 
Milano, tel. 8055804. 


Vendo VIC 20 + interfaccia registratore + 2 ma- 
nuali in italiano (manuale d'uso e impariamo a pro- 
grammare), 6 mesi di vita, costo ufficiale (L. 
580.000) L. 400.000 intrattabili. Emilio Ziliani, Via 
Toscana 19, 20061 Carugate (Mi), tel. 02/9251429, 


Vendo VIC 20 nuovo con registratore C2N a L. 
490.000. Turi Dina, Via S. Polo 1811, 30100 Vene- 
zia, tel. 041/38584. 


Vendo per passaggio a sistema superiore PET 
3001-8c con monitoria fosfori verdi in perfette con- 
dizioni come nuovo a L. 700.000 inoltre stampante 
CBM 3022 usata solo per una prova a lire 700.000. 
Gianni Pavan, Via Arsa 13, 30172 Mestre, tel. 041/ 
911367). 


Grafici ad Alta Risoluzione con il Commodore PET: 
trasformate la vostra stampante 4022, in un plotter! 
Con questa routine potrete creare grafici, tracciare 
linee, scrivere commenti, il tutto con una risoluzione 
di 0.35 mm. | grafici possono essere registrati su 
disco o su nastro per poter essere in seguito riutiliz- 
zati, o corretti. Tutto quello che serve è 32K di 
memoria, e la stampante 4022. La routine è dispo- 
nibile su cassetta corredata di chiare istruzioni per 
l'utilizzo, al prezzo di L. 50.000. Scrivere o telefona- 
re a Massimo Rossi, Corso Porta Romana 121 Mi- 
lano, tel. 590727 (al mattino o dopo ore 21.30). 


Vendo programmi di ingegneria civile per PET/ 
CBM. Telefonare negli orari di ufficio a Gianluca 
Luoni, Via Della Concordia 8/bis, 21050 Busto Arsi- 
zio (Va), tel. 0331/679128. 


Per VIC 20 vendo espansioni 16 K a L. 150.000, 
Superexpander a L. 50.000, praticamente nuove. 
Telefonare ore pasti a Ugo Cartia, Via Monte Cer- 
vialto 80, 00139 Roma, tel. 06/8186838. 


Vendoper VIC 20 Super Expander a L. 50.000; Pro- 
grammer's Aid a L. 25.000; 8 K RAM a L. 40.000; 
Vic Forth a L. 50.000; Giochi: Avancer, Sargonii 
Chess, Omega Race, Alien a L. 20.000 l'uno solo 
zona Torino. Claudio Coccato, Via Pacinotti 9, 
10036 Settimo Torinese (To), tel. 8002485. 


Scambio software CBM 3032/4032 per ingegneria 
civile, speciale zona sismica, POR, muri di soste- 
gno, telaio sismico (con inviluppo delle sollecitazio- 
ni e calcolo armature) e tanti ancora. Ing. Alvaro 
Albani, Via Castelfidardo 7, 47037 Rimini (Fo), tel. 
0541/25765. 


Vendo VIC + 5 K Hi-Res + 16 K RAM + registrato- 
re C2N + manuali italiano inglese 50 programmi 
vari su cassette + copertine coprisistemi. Tutto 


usato circa 10 ore a L. 800.000 (possibilità di dila- 
zioni). Giuseppe Di Pasqua, Via E. Donadoni 1, 
56100 Pisa, tel. 050/574605. 


Sharp 


Sharp PC 1211: cerco programmi di termotecnica, 
“373”, impianti condizionamento, riscaldamento aria 
calda, fabbisogni termici. Rispondo a tutti. Dino 
Fornaciari, Villaggio Dante 30, 52100 Arezzo, tel. 
0575/351451 ore pasti. 


Vendo/cambio programmi Sharp HZ80B (ingegne- 

ria civile 1 e 2, word processing, giochi, pronostici 

totocalcio). Scrivere per la lista o per ulteriori infor- 

mazioni. Annuncio sempre valido. Stefano Lazzaro, 

pa, Monte Sabotino 2, 35100 Padova, tel. 049/ 
2675. 


Vendo per Sharp MZ80 a routine Assembler per 
l'esecuzione di somme e sottrazioni algebriche con 
15 cifre più segno. Consentono un notevole 
aumento di velocità nell'esecuzione dei programmi. 
Piergiorgio Cresto, Via Circonvallazione 27/3, 
10018 Pavone, tel. 51480. 


Vendo programmi di ingegneria per Sharp HZ80B a 

lire 50.000 cadauno. Dispongo inoltre di vario soft- 

ware. Per informazioni scrivere all'indirizzo seguen- 

te, inviando L. 500 per contributo spese spedizione. 

A Lazzaro, Via Monte Sabotino 2, 35100 Pa- 
lova. 


Cambio programmi per Sharp MZ80B. Possiedo 
giochi: Star Trek, Missione aerea, Gioco delle rane, 
Prova riflessi, Totocalcio, Gioco del NIM ecc. Invia- 
temi i vostri listati o cassette ed io vi manderò i 
miei. Emanuele Matarazzo, Via Castello 10, 75100 
Matera, tel. 0835/211626. 
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vendere software? Spedisci questo tagliando a Gruppo Editoriale Jackson - Via Rosetlini, 12 - 20124 Milano 


I SI RE CN E I GIONI MON SOT o) I E LI PAIA 


sai 


$i SISI 


ee e II 


PR SL i I MES ES i PSN SS) 


| EE CES I DR CSI 


AE SOI RSS TSE CSR OI CS OG AT HD O, SP LOI DS ADE OS Vo Bi bl OE ELE CC] 
PIE LR AO A 
RL I IA PESI 9 O ETA Mi SO E e IST I I e a a |M TS O iL on EDT A 
iii desire <a. N pone 
S| RIN RR Ro RT Le 
e e) 


Servizio programmi 


Per alcuni dei programmi pubblicati, Personal Software mette a disposizione dischi e 
nastri già registrati, realizzati in collaborazione con l'autore. Potete ottenerli in contras- 
segno, pagando direttamente al postino la cifra indicata, spedendo il tagliando pubbli- 


cato in fondo alla pagina. 


N. Sistema Programmi Supporto pubblicato in Prezzo 
Personal Software n. 
1. Applell+ La carta del cielo floppy 5” 3 pag. 83 30.000 
Collisione DOS 3.3 3 pag. 93 
2 TRS-80 mod.Il Backgammon floppy 5” 3 pag. 89 25.000 
DOS 2.3 
3. PET/CBM 3032/4032 Editor/Assembler in Basic floppy 5” pag. 33 40.000 
3032/4032+3040/4040 
4 Apple llI+ Interi in precisione floppy 5” 4 pag. 17 40.000 
multipla DOS 3.3 
Grafica 3D 4 pag. 47 
5 PET/CBM 3032/4032 — Gioco del calcio floppy 5" pag. 67 25.000 
3032/4032+3040/4040 
6 Applell+ Pretty Printer floppy 5” 5 pag. 27 30.000 
Shape Table DOS 3.3 5 pag. 58 
7 Applell+ Data base floppy 5” 7 pag 25.000 
modulare DOS 3.3 


COCCO TITTI IO CE TI TE T E ZI CITE CCC CC CTC TE CUT ICE CECT CCC CUT STE CACAO TETI CC CT ET TTT O TE TTT T TETTE CT CCR CCA CCIE OI RECON 
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chiusa a 


Inviatemi i seguenti dischi di Personal Software 


n. 


PERSONAL SOFTWARE 


Servizio Programmi 
Via Rosellini 12 
20124 Milano 


GY di dd dei ad POIANA Ò II TAR Ò TA dI ASA OTT TT ANTA TITTI Tiarno ncaenendateosicoes io 


per un totale di lire 


+ L. 2.000 come contributo fisso 


spese di spedizione che pagherò al postino alla consegna del pacco. 
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ZX Spectrum 


Lo trovi anche nel tuo 
BITSHOP PRIMAVERA 


ALESSANDRIA Via Savonarola, 13 
ANCONA Via De Gasperi, 40 

BARI Via Capruzzi, 192 

BASSANO DEL GRAPPA Via jacopo Da Ponte, 51 
BERGAMO Via S. F. D'Assisi, 5 

BIELLA Via Italia, 50A 

BOLOGNA Via Brugnol, 1 

CAGLIARI Via Zagabra, 47 
CALTANISSETTA Via R. Settimo, 10 
CAMPOBASSO Vi: Mons. || Bologna, 10 
CATANIA Via Muscatello, 6 

CESANO MADERNO Via Ferrini, 6 
CESENA Via F.lli Spazzoli, 239 

CINISELLO BALSAMO V.le Matteotti, 66 
COMO Via L. Sacco, 3 

COSENZA Via De: Mille, 86 

CREMA Via |V Novembre, 56/58 

CUNEO C.so Nizza, 16 

FAVRIA CANAVESE C so G. Matteo, 13 
FIRENZE Via G. Milunes,, 28/30 

FOGGIA Va Marchianò, 1 

FORLÌ P.zza Melozzo, 1 

GALLARATE Via A. Da Brescia, 2 

GENOVA Via Domenico Faselta, 571/R 
GENOVA C.so Gastaldi, 77/R 
GENOVA-SESTRI Via Chiaravagna, 10/R 
GENOVA-SESTRI Via Ciro Menotti, 136/R 
IMPERIA Via Delbeccn, 32 

LECCE Vie Marche, 21 

LECCO Via L. Da Vinti, 7 

LIVORNO Via San Simone, 31 

LUCCA Via S. Concordip, 160 

MACERATA Via Spato, 126 

MERANO Vis S. Maria del Conforto, 22 
MESSINA Via Del Vespro, 71 

MESTRE Piazza Ferretto, 78 

MILANO Via G. Cantoni, 7 

MILANO Via È. Petrella, 6 

MILANO Via Altaguardia, 2 

MILANO P.zza Frenze, 4 

MILANO Vie Corsica, 14 

MILANO \: » “«vtosa. 91 
MIRANO-VENEZIA Via Gram, 4U 
MODENA Via Fonteraso, 18 

MONZA Via Azzone Visconti, 39 
MORBEGNO Via Faban., 31 

NAPOLI Via Luigia Sanfelice, 7/A 

NAPOLI C.so Vittorio Emanuele, 54 
NOVARA Baluario O. Sella, 32 

PADOVA Vu Fistomba. 8 

PALERMO Va ertà, 191 

PARMA Via Imbriani, 47 

PAVIA Via C, Battisti, 4/A 

PERUGIA Via KR. D'Andreotro, 49/5 

PESCARA Vi Tiburtina, 264 

PESCARA Via Irneste, 73 

PIACENZA Via |V Novembre 60 

PISA Via XXIV Maggio, 1 
PISA Via Emilia, 36 
PISTOIA \ie Adua 35 
POMEZIA Via Roma, 39 
POTENZA Vis G Mazz 72 
POZZUOLI Via GL Pergole 
PRATO Via E Boni, 76/78 
RIMINI Via Bertoia, 75 
ROMA L.po fe i, 4 (Vigna Stelluti) 
ROMA f.zza San Donà DI Piave, 14 
ROMA Vie fV Vent, 152 

ROMA Via Cerreto Da Spoleto, 23 


ROMA Via Ponzio Comino, 46 
ROMA Via Del Traforo. 136 
SAVONA Via C. Scarpa, 13/R 
SONDRIO Va N. Sauro, 28 
TERAMO Va Ma 
TORINO Cso Grosseto, 
TORINO Via Tripoli, 179 
TORINO Via Nizza, 9] 
TRENTO Via Sighele. 7/1 
TREVIGLIO V.le Buonarroti, 5/A 
TRIESTE Via f. Saverio, 138 
TRIESTE Via Torrebianca, 18 
UDINE Via Tavaghacco, 89/91 
VARESE Via Carrobbio, 13 
VENEZIA Cannaregio, 5898 
VERCELLI Via Dionisotti, 18 
VIAREGGIO Via A. Volta, 79 
VOGHERA P2zza G. Carducci, 11 
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primavera, 


La prima e la più grande catena 
di computer in Italia. 
Telefono 02/6120848-6120795 


e 16 o 48 kbytes RAM. 


e grafica ad alta risoluzione 
(256x192 punti). 


® 8 colori da utilizzare con la più 
assoluta libertà per testo, 
sfondo, bordo, in campo diretto 
o inverso, con due gradi di 
luminosità, a luce fissa o 
lampeggiante. 


e BASIC Sinclair esteso con 


funzioni a un tasto per 
programmare in fretta e senza 
errori. 


e Funzioni specifiche per la 


grafica e per la gestione di dati 
d’archivio. 


e Tastiera multifunzione con 
maiuscole, minuscole, simboli 
grafici, caratteri definibili 
dall’utente. 


e Ampia disponibilità di 4X Spectrum 
programmi preregistrati su 
compact-cassette: giochi, 
passatempi, educazionali, rosa 
matematici, gestionali. sor Gara LoGk trp rv. VIDEO 9, " & pts see pi 

e Totale compatibilità con la Lal Lol Lie ie n ” me = w L 
stampante ZX. : 

* Disponibilità immediata del AA RLLILOOO E P_ 


volume ALLA SCOPERTA 


DELLO ZX SPECTRUM in IFCCLCLCLCCEA R_ 


italiano. 


e Prezzo eccezionale: 360.000 lire i Ss È # E a a a = 


nella versione a 16 kbytes. 


age» o 


sIMTC 


VU-FILE 


ateo GALETTERR 


FUN TO LEARN sERupg 


| INVENTIONS 


REBIT COMPUTER 
18 
Via Induno EURO BALSAMO 


20092 CINI 
ove Postale 10488 MI 


. 
@: PSION 16r0t 
MELGOURNI HOUSI 494 tAM4 


AL SI ARRE, 


rr SU (a | 


base fino alle tecniche di programmazione 
avanzate, al fine di permettergli la 
| realizzazione di programmi sempre più 
complessi. i 
L'esposizione progressiva, rigorosamente 
strutturata, comporta la risoluzione 
obbligatoria di esercizi attentamente 
graduati al fine di verificare che si sia 
veramente capito quanto presentato? 
Ben si prestano, perciò, a chi si avvicina 
per la prima volta ai microprocessori e ne 
vuole conoscere e capire gli aspetti 
i essenziali di programmazione. Per tutti 
coloro che già hanno programmato, 
__Yece, sarà una vera e propria miniera di 
?formazioni sulle caratteristiche specifiche 
‘ MIcroprocessore d’interesse, 
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